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/* * ' 
/* DUMP 

/* 

/* Dump routines . 

/* 

/******** /* 

# include <supglob.c> /* get globals 

/* 

/* 

/* D B Y T E S 

/* 

/* Dump a block of SC-1 memory in the specified window in byte format. 

/* The address is in dseg|doff. 

/************************************************* 

/* 

dbytes( id) 

struct window *id; 

[int i, 

off; 


off=id->topoff; 
id->cury=l ; 

for (i=3,-i<=id-> lines ;i++) 
[dumpln( id, id->daseg, off) ; 
of f+=16 ; 
id->cury++; } ; 
id->cury=l ; } 


*/ 

*/ 

V 

V 
*/ 

V 

V 
*/ 

V 

V 

V 

V 

V 

V 
*/ 

V 

V 
*/ 

V 

V 

V 
*/ 

V 


/ 

/* dump bytes in window 
/* window id 
/* iteration variable 
/* dump offset 
/* dump offset 
/* position cursor of window */ 
/* display data loop 
/* show a line 
/* next line of data 
/* next line 
/* start of window 
/* 


/* ************************************************ 

/* 

/* U B Y T E S 

/* 

/* Fill the specified window with unassembled instructions. 

/* 

f* ************************************************ 

/* 

ubytes ( id ) 

struct window *id; 

{int i; 
clear ( id ) 
id->cury=l ; 
id- > daof f =id- > topof f ; 
for (i=3 ,i<=id-> lines ;i++) 

[diss( id, id->daseg, id->daoff ) ; 
id->daof f+=ip; 
id->cury+=l; } ; 
id->type=DA; } 


V 
*/ 

V 

V 

V 
*/ 

V 

V 

V 

V 

V 

V 

V 

V 

V 
*/ 

V 

V 


/* ************************************************ 
/* 

/* P A D D R 

/* 

/* Print the passed segment and offset. 

/* 

^**** ********************************************* 

/* 

paddr ( id , seg , o f f ) 

struct window *id; 
int seg, 

Off; 

[hexw( id, seg) 
wchw( id, ' : ' ) 


/* unassemble 
/* window id 
/* iteration variable 
/* blank inside window 
/* position cursor of window */ 
/* establish last dis. addr. */ 
/* display data loop 
/* show a line 
/* next line of data 
/* next line 
/* flag window non-empty 


hexw( id, off ) 


1 


/* print address 
/* window id 
/* segment address 
/* offset 

/* write segment high 
/* write colon 
/* write offset high 


V 

V 

V 

V 

V 

V 

V 

V 

V 

V 
*/ 

V 

V 

V 

V 

V 

V 

V 

V 
*/ 

V 


*************************************{* 


H E X W 


/* Print the passed word in hex. 

/* ******************************************** 
/******* 


hexw(id,x) /* display hex word */ 

struct window *id; /* window id */ 

int x; /* data */ 

{hex(id,x>>8) ; /* display high ... */ 

hex ( id , x ) ; } /* • ■ • and low */ 

/* */ 

/************************************************* */ 

/* */ 

/* H E X C */ 

/* V 

/* Convert the passed nibble to hex ascii. */ 

/* */ 

/* ************************************************ * / 

/* V 

char hexc(x) /* convert to hex ascii */ 

int x; /* nibble V 

[x&=0xf; /* get nibble */ 

return ( (x<=9 ) ?x+ ' 0 ' :x-10+ ’ A ' ) ; } /* convert to ascii */ 

/* */ 

/************************************************* */ 

/* V 

/* HEX V 

/* */ 

/* Print the specified byte at the current cursor position on the */ 

/* specified window. */ 

/* */ 

/* ************************************************ * / 

/* */ 

hex(id,x) /* print byte in hex */ 

struct window *id; /* window id */ 

int x; /* data */ 

[wchw(id, hexc (x> >4 ) ) ; /* print high nibble */ 

wchw( id , hexc ( x ) ) ; } /* print low nibble */ 

/* */ 

/* ************************************************ * / 

/* V 

/* D U M P U P */ 

/* V 

/* Scroll the specified dump window in response to an up arrow. */ 

/* */ 

/************************************************* */ 

/* */ 

dumpup ( id ) /* scroll up */ 

struct window *id; /* window id */ 

{dscroll(id) ; /* blank top line */ 

id->topoff-=16 ; /* adjust address in window */ 

id->cury=l; /* adjust cursor */ 

dumpln(id,id->daseg,id->topoff ) ; } /* dump a line */ 

/* */ 

/* ************************************************ * / 

/* V 

/* D U M P D N */ 

/* V 

/* Scroll the specified dump window in response to a down arrow. */ 


D U M P D N 




dumpdn ( id ) 

/* scroll up 

V 


struct window *id; 

/* window id 

*/ 


{uscroll( id) ; 

/* blank top line 

*/ 


id->topof f+=16 ; 

/* adjust address in window 

*/ 


id->curv=id->lines-2 ; 

/* adjust cursor 

V 


dumplnf id, id->daseg, id-> topof f+ ( id->lines-3 ) *16 ) ; } /* dump a line 

V 



/* 

*/ 

/************************************************* 

*/ 

/* 



V 

/* 

UNDN 


V 

/* 



*/ 

/* 

Scroll the specified dump window in 

response to a down arrow. 

V 

/* 



V 

/************************************************* 

*/ 



/* 

*/ 

undn ( id ) 

/* scroll up 

*/ 


struct window *id; 

/* window id 

V 


[int i. 

/* top address accumulator 

V 


j , 

/* iteration variable 

V 


k; 

/* screen character 

V 


uscroll( id) ,- 

/* blank top line 

V 


id->cury=id->lines-2 ; 

/* adjust cursor 

*/ 


diss(id, id->daseg, id->daof f ) ; 

/* disassemble a line 

V 


id->daof f+=ip ; 

/* next line of data 

*/ 


i=0/ 

/* clear accumulator 

V 


for ( j=0; j<4; j++) 

/* decode address loop 

V 


{movcurs ( id-> scry+1 , 6+ j ) ,■ 

/* position to offset 

*/ 


k=sch( ) / 

/* get screen character 

V 


k=(k<= ' 9 ' ) ?k- ' 0 ' :k-'A'+10; 

/* convert to binary 

*/ 


i= ( i < < 4 ) +k ; } ; 

/* accumulate address 

V 


id->topoff=i; } 

/* set new top address 

V 



/* 

*/ 

/************************************************* 

*/ 

/* 



V 

/* 

DUMPLN 


V 

/* 



*/ 

/* 

Dump a line of SC-1 memory. 


*/ 

/* 



*/ 

/************************************************* 

*/ 



/* 

*/ 

dumpln ( id , dseg , of f ) 

/* dump data 

V 


struct window *id; 

/* window id 

*/ 


int dseg. 

/* segment address 

V 


off; 

/* offset 

V 


{unsigned char dmp[16]; 

/* dumped data 

V 


int j , 

/* iteration variable 

*/ 


i; 

/* iteration variable 

V 


id->curx=l ; 

/* move to start of line 

V 


if ( ! scdump(dseg , of f , 17 ) ) return (0); 

/* send dump command 

V 


for ( j=0; j<=15; j++) dmp[ j]=rdscl( ) ; 

/* read data 

V 


paddr ( id , dseg , of f ) ,• 

/* print memory address 

*/ 


wchw( id, 1 ' ) ,• 

/* space . . . 

*/ 


wchw(id, ' ' ) ; 

/* . . . 

V 


if (id->type==DBT) 

/* dump bytes or words? 

V 


[for ( j=0; j<=15; j++) 

/* dump loop 

V 


{ hex ( id , dmp [ j ] ) ; 

/* write byte in hex 

*/ 


if ( dmp [ j ] < ' ' M dmp [ j ] >=0x7 f ) dmp [ j ] = ' . ' ; /* for printing 

V 


if ( j==7 ) 

/* middle? 

V 


wchw( id, ' - ' ) ; 

/* dash in middle 

V 


else 

/* otherwise, space 

*/ 


wchw ( id , ' ');}} 

/* ... 

V 


else 

/* words . . . 

V 


for ( j=0 ; j <=15 ; j+=2) 

/* dump loop 2 

V 


{ hexw ( id , (dmp[ j+1] <<8) |dmp[ j] ) ; 

/* dump a word 

*/ 


for ( i=j ; i<= j+1 ; i++) 

/* convert to ascii loop 

V 


{if (dmp[i]<' ' 11 dmp[i]>= 

0x7f ) dmp [ i ] = ' . ' ; /* for printing 

V 


1 wchw( id, /* 

wchw(id, ' ' ); /* 

wchw(id, ' * 1 ) ; /* 

for ( j=0; j <=15 ; j++) /* 

wchw(id,dmp[j] ) ; /* 

wchw( id, ' * ' ) ; /* 

if (rdscl( ) !=PROMPT) error ( BADSC1 ); } /* 

/* 

/* 


/* DMPREGS 

/* 

/* Dump registers to screen window. 

/* 

/************************************************* 


/* 

dmpregs() /* 

{int i; /* 

char r ; /* 

wrscl (DREGS ) ; /* 

if ( ! gregs( ) ) /* 

error ( BADSC1 ) ; /* 

else /* 

if (!dregs()) error ( BADSC1 ); } /* 

/* 


space between words 
another space 
print star 

encode and print data 
print it 
trailing star 
SC-1 in synch? 


dump registers 
iteration variable 
register half temp 
send dump command 
check response code 
send error 

here come the registers 
check completion 


/* 

/* TRACE 

/* 

/* Trace execution (single-step). 

7 t*********************************************** 


/* 

trace ( token ) /* 

int token ; /* 

{wrscl ( STEP ) ; /* 

gregs( ) ; /* 

dregs ( ) ; /* 

wchs(CR) ; /* 

diss( sscreen, sclregs [CS] , sclregs [IP ] ) ; /* 

if ( token==TU) /* 

{if (!mkwnd()) return (0); /* 

activw->daseg=sclregs [CS] ; /* 

activw->topof f=sclregs [IP] ,• /* 

ubytes ( activw) ; } } ; /* 

/* 


trace execution 
command code 
send step command 
get registers 
display registers 
new line 

display next instruction 
trace & unassemble? 
try to make one 
• • • yep, set dump address 

disassemble 


y************************************************* 

/* 

/* GO 

/* 

/* Start execution until optional breakpoint. 

/* 

************************************************ 

/* 

go (token) /* begin execution 

int token; /* command code 

[if (bf) brkpt ( gopoop [ 2 ] , gopoop [ 3 ] ) ; /* set breakpoint 

if (af) /* start address present? 

[ lreg( IP, gopoop [ 1] ) ; /* load IP 

lreg (CS, gopoop [0] );} ; /* load CS 

wrscl (GO); /* send step command 

gregs ( ) ; /* get registers 

if (bf) loadscl( gopoop [ 2] , gopoop [ 3] , 1 , Sbpinst) ; /* restore instruction 
dregs ( ) ; /* display registers 

wchs(CR); /* new line 

diss ( Sscreen, sclregs [CS] , sclregs [ IP] ) ; /* display next instruction 


*/ 

*/ 

*/ 

V 
*/ 
*/ 

V 

V 

V 

V 

V 

V 

V 
*/ 
*/ 

V 

V 
*/ 

V 
*/ 

V 

V 
*/ 
*/ 

V 

V 

V 
*/ 
*/ 

V 

V 

V 

V 

V 

V 
*/ 

V 

V 

V 
*/ 
*/ 

V 
*/ 

V 
*/ 
*/ 

V 

V 

V 

V 

V 

V 

V 

V 
*/ 

V 
*/ 

V 
*/ 
*/ 

V 

V 
*/ 
*/ 
*/ 

V 


if (token==GU) /* 

{if (!mkwnd()) return(O); /* 

activw->daseg=sclregs [CS] ; /* 

activw->topof f=sclregs [IP] ; /* 

ubytes ( activw) ; } } ; /* 

/* 


/* 

/* B R K P T 

/* 

/* Set breakpoint. 

/* 


/* 

brkpt (seg,off ) /* 

int seg, /* 

off; /* 

(static unsigned char trap=0xcc; /* 

if ( !scdump(seg,off ,2) ) return(O); /* 

bpinst=rdscl( ) ; /* 

i f ( rdsc 1 ( ) ! =PROMPT ) /* 

{ error ( BADSC 1 ) ; /* 

return ( 0 ) ; } ; /* 

bpact=l ; /* 

loadscl ( seg, of f, 1 , Strap) ; } /* 

/* 


/* 

/* L0ADSC1 

/* 

/* Load SC-1 memory. 

/* 

/* 


loadscl(seg,off ,len,poop) /* 

int seg, /* 

off, /* 

len ,- /* 

char *poop ; /* 

{wrscl (LOAD) ; /* 

saddr(seg,off , len) ; /* 


for ( ; len>0 ; len — ) wrscl ( *poop++ ) ; /* 

if (rdscl( ) !=PROMPT) error ( BADSC 1 ); } /* 

/* 

/* 

/* GREGS 

/* 

/* Read registers from SC-1. 

/!************************************************ 


/* 

gregs ( ) /* 

{int i, /* 

r ; /* 

if ( rdsc 1 ( ) ! =DUMPREG ) return(O); /* 

for (i=0;i<14;i++) /* 

[r=rdscl(); /* 

sclregs [i] =r | (rdscl( )<<8) ;} ; /* 

if (rdscl( ) !=PROMPT) return(O); /* 

return ( 1 ) ; } /* 

/* 


/* 

/* DREGS 

/* 


trace & unassemble? 
try to make one 
. . . yep, set dump address 

disassemble 


set a breakpoint 
address segment 
. . . and offset, 
breakpoint instruction 
send dump command 
get replaced instruction 
check for good dump 
send error 
return 

flag active breakpoint 
set breakpoint 


load target memory 
address segment . . . 

. . . and offset 

byte count 

data address 

send load memory command 

send address 

load data 

good load? 


get registers 
iteration variable 
register temp 
return error 
print regs . 
get low reg half 
get register high half 
get prompt 
return success 


*/ 

*/ 

*/ 

*/ 

V 

V 
*/ 

V 

V 
*/ 

V 

V 

V 
*/ 

V 
*/ 

V 

V 
*/ 

V 
*/ 
*/ 

V 

V 

V 
*/ 

V 
*/ 

V 
*/ 

V 

V 

V 
*/ 
*/ 

V 
*/ 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 
*/ 
*/ 
*/ 

V 

V 

V 

V 
*/ 
*/ 
*/ 

V 

V 

V 
*/ 

V 

V 


DREGS 



Display registers from SC-1. 




dregs () /* display registers */ 

[int i; /* iteration variable */ 

static char rtext[]={"AXBXCXDXSIDIBPSPCSDSESSSIPFL"} ; /* register names */ 
wchs(CR) ; /* scroll */ 

for (i=0 ;i<28;i+=2) /* print regs. */ 

{wchs (rtext [i] ) ; /* write reg. name */ 

wchs(rtext [i+1] ) ; /* . . . */ 

wchs (' = '); /* . . . */ 

hexw( sscreen , sclregs [i> >1] ) ; /* print register */ 

wchs(' '); /* space between registers */ 

wchs(' ' ) ; /* space between registers */ 

if (i==12) wchs (CR) ; } /* new line in middle */ 

return(l);} /* good register dump */ 

/* V 

/* ************************************************ * / 

/* */ 

/* S C D U M P */ 

/* */ 

/* Send command to dump a block of SC-1 memory. */ 

/* */ 

y* ************************************************ * / 

/* v 

scdump ( seg , of f , len ) /* dump SC-1 memory */ 

int seg, /* segment address */ 

off, /* offset */ 

len; /* byte count+1 , */ 

{wrscl (DMEM) ; /* send dump command to SCI */ 

saddr(seg,off , len) ; /* send address and length */ 

if (rdscl( ) !=DUMPMEM) /* check response */ 

(error ( BADSC1 ) ; /* bad response */ 

return (0);} /* return error */ 

return (1);} /* good SC-1 response */ 

/* V 

jf* ******************************* *'* *************** * / 

/* */ 

/* S A D D R */ 

/* */ 

/* Send memory address to SC-1. */ 

/* */ 

/************************************************* * / 

/* V 

saddr(seg,off , len) /* send address to SC-1 */ 

int seg, /* address segment ... */ 

off, /* ... and offset */ 


len,- /* byte count */ 

(wrscl (seg); /* send low seg addr. */ 

wrscl(seg>>8 ) ; /* send high seg addr. */ 

wrscl (off); /* send low offset */ 

wrscl(of f>>8 ) ; /* send high offset */ 

wrscl(len);} /* send byte count+1 */ 

/* */ 

y************************************************* * / 

/* */ 

/* L R E G */ 

/* */ 

/* Load an SC-1 register. */ 

/* */ 

f* ************************************************ * / 

/* V 

lreg(reg,x) /* load register */ 

int reg, /* register # */ 

x; /* data */ 




[ wrscl ( LREGS ) ; 

/* send load command 

V 


wrscl(reg<<l) ; 

/* send register # 

V 


wrscl (x) ; 

/* send low half 

*/ 


wrscl (x> >8) ; 

/* send high half 

*/ 


if (rdscl( ) ! =PROMPT) error (BADSC1) ; } 

/* check for prompt 

*/ 



/* 

*/ 

/************************************************* 

V 

/* 



*/ 

/* 

WNDIR 


V 

/* 



*/ 

/* 

Display directory of dump windows. 


V 

/* 



V 

/* ************************************************ 

V 



/* 

V 

wndir ( ) 

/* window directory 

V 


{static char *title= 

/* directory title 

*/ 

{ 

"Window Type Addr Lines 

Window Type Addr Lines 



int i; 

/* iteration variable 

*/ 


wchs(CR) ; 

/* new line 

V 


stype( title) ; 

/* print title 

*/ 


for (i=0 ;i<4 ;i++) 

/* scan windows 

V 


[wchs(CR) ; 

/* new line 

V 


wndex ( i ) ; 

/* display window discription*/ 


stype ( " " ) ; 

/* space to next column 

V 


wndex ( i+4 ) ; } } 

/* next column 

V 



/* 

V 

/************************************************* 

V 

/* 



V 

/* 

WNDEX 


V 

/* 



V 

/* 

Display dump window poop. 


*/ 

/* 



V 

/************************************************* 

V 



/* 

V 

wndex ( i ) 

/* display window poop 

*/ 


int i; 

/* window # 

*/ 


{static char *wtype[]={" DB DW 

" , " DA " } ; /* type text 

V 


stype ( " "); 

/* space 

V 


wchs ( box [ i ] . wnum ) ; 

/* print window # 

V 


stype ( " " ) ; 

/* space 

*/ 


if (box[i] .used) 

/* window in use? 

V 


stype ( wtype [ box [ i ] . type ] ) ; 

/* print type 

*/ 


else 

/* window unused 

*/ 


stype ( "Free" ) ; 

/* 

*/ 


stype ( " " ) ; 

/* space 

*/ 


if (box [ i] . used==0 ) 

/* window filled? 

V 


stype ( " " ) ; 

/* nope blank it 

V 


else 

/* window filled 

V 


{if (box[i] . type==BL) 

/* window blank? 

*/ 


stype ( " "); 

/* print string 

*/ 


else 

/* text there 

V 


[hexw( &screen,box [i] .daseg); 

/* type address 

*/ 


wchs (':'); 

/* 

V 


hexw( &screen, box [i] .topoff)/}; 

/* 

V 


stype ( " "); 

/* space 

*/ 


hex( sscreen, box [i] . lines-2 ) ; } } 

/* line count 

*/ 



/* 

V 



/*****************************/ 



/* 

/* ERROR 

/* 

/* Print the specified error message on line 23 of the screen. 

/* 

/* 

# include <supglob.c> 


error ( err ) 
int err; 

[static char *msgs[]=[ 

"Pressure file recovered", 

"SAPMD communication error", 

"Checksum error" , 

"Bad command", 

"Error in hex file" , 

"Bad input character" , 

"No room for window", 

"Strange SC-1 response", 

"Can't find file", 

"Unexpected end-of-file" , 

"No filename specified", 

"Error in calibration file ( SAPMD . CAL )" , 


/* locate global data 
/* 

/* print error message 
/* message id 
/* message text 


/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


"Missing launch simulation file (LA.CMD)", /* 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 


" error 

13" , 

"error 

14" , 

"error 

15", 

"error 

16", 

"error 

17" , 

" error 

18" , 

"error 

19", 

"error 

20" , 

" error 

21" , 

" error 

22" , 

" error 

23",}, 

*arrow= 

= {" > 


} ; 

wchs ( CR ) ; 
stype( arrow) ; 
stype(msgs [err] ) / } 


/* message header 
/* write character 
/* print arrow 
/* print message 
/* 


**************^********************************* 

/* 

/* S T Y P E 

/* 

/* Print the passed line of text on screen window. 

/* 

^************************************************* 

/* 

stype(txt) /* print character string 

char * txt ; /* string pointer 

[char *ptr; /* iteration pointer 

for (ptr=txt;*ptr ! = '\0' ,-ptr++) wchs( *ptr ) ; } /* print arrow 

/* 

//'************************************************* 

/* 

/* W T Y P E 

/* 

/* Print the passed line of text on window. 

/* 

^************************************************* 

/* 

wtype(id,txt) /* print character string 

struct window *id; /* window id 


*/ 

V 

V 

V 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 

V 

V 
*/ 
*/ 

V 

V 

V 

V 
*/ 

V 
*/ 

V 

V 
V 


V 

V 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 

V 
*/ 
*/ 

V 
*/ 

V 
*/ 

V 

V 
*/ 

V 
*/ 

V 

V 

V 
*/ 
*/ 

V 

V 

V 


char *txt; /* string pointer */ 

[char *ptr ,■ /* iteration pointer */ 

for ( ptr=txt ; *ptr ! = ' \0 1 / ptr++ ) wchw( id, *ptr ) ; } /* print arrow */ 

/* */ 
y'***************************** / 


# define MAIN 1 
# include <supglob.c> 
main ( argc , argv ) 
int argc; 
char *argv[]; 

{struct window *id,* 
int i , j ; 
erase (activw) ; 
ml=createw( 0,11); 
m2=createw( 1,13); 
m3=createw( 2,13); 
m4=createw( 3,1); 
m5=createw( 4,10); 
m6=createw( 5,24); 
debug ( argc , argv ) ; } 



/* ^ 

/* MENU 

/* 

/* Display menus on windows. 

z************************************************* 

/* 

# include <supglob.c> 


menu(n,e) 
int n, 
e; 

[static 


char *mltext[]=[ 

HP/SAPMD ACCESS", 


/* 

/* 

/* 

/* 

/* 

/* 


locate global data 

display menu 
menu number 
erase screen flag 
main menu text 


V 

V 
*/ 

V 

V 
*/ 

V 

V 

V 

V 
*/ 

V 

V 


"1. COMMAND/INTERROGATE SAPMD" , 

"2. SAPMD SELF-TEST", 

"3. RECOVER PRESSURE DATA filename", 
"4. DISPLAY PRESSURE DATA filename", 
"5. PRINT PRESSURE DATA filename", 
" ", 0 }; 

static char *m2text[]=[ 

" SG ddd/hh : mm : s s 


" SM ddd/hh : mm : s s 
"TM 

"DR xx [ , yy ] 

"DS xx 

"DE xxxx[,yy] 

"ER xx 
"ES xx 
"EE xxxx 

"P filename [, xxxx] 

"MON 

static char *m3text[]=[ 


/* command/interrogate text */ 

Set GMT", 

Set elapsed time" , 

Read GMT and MET", 

Dump 80C31 ram from xx for yy bytes", 

Dump 80C31 SFR xx" , 

Dump 80C31 external memory xxxx for yy bytes", 
Enter 80C31 ram at xx", 

Enter 80C31 SFR xx" , 

Enter 80C31 external memory" , 

Program filename into EEPROM at xxxx" , 

Toggle monitor data window display" , 0 } ; 

/* self-test text */ 


HP/SAPMD SELF-TEST' 


"1. N/A", 

"2. EEPROM TEST", 

"3. N/A", 

"4. N/A", 

" 5 . N /A " , 

"6! 80C31 RAM TEST", 

"7. 80C31 ROM TEST", 

’\ 0 }; 


removw(activw) ; 

/* remove current window 

V 

if (e) erase ( sscreen) ,- 

/* clear screen 

V 

switch ( n ) 

/* which menu? 

V 

[case 1: 

/* main menu 

V 

show (ml ) ; 

/* display main menu 

*/ 

pmenu ( ml , ml text ,1,20); 

/* display text 

V 

activw=ml ; 

/* flag active window 

V 

break ; 

/* next 

V 

case 2 : 

/* command/interrogate 

V 

show(m2 ) ; 

/* display menu 

V 

pmenu ( m2 , m2text ,1,5); 

/* display menu text 

V 

activw=m2 ; 

/* no window active 

V 

break ; 

/* next 

V 

case 3 : 

/* self-test 

V 

show(m3 ) ; 

/* display self-test menu 

V 

pmenu (m3 , m3 text, 1,25); 

/* print text 

*/ 

activw=m3 ; 

/* flag active window 

V 

break; 

/* next 

V 

case 4 : 

/* monitor window 

*/ 


show(m5); 

/* display window 

V 

activw=m5 ; 

/* active window 

*/ 

break ; 

/* next 

*/ 

case 5: 

/* display data window 

*/ 

show(m6 ) ; 

/* display 

V 

activw=m6 ; } } ; 

/* 

*/ 


/* 

*/ 

/************************************************* 

V 

/* 


*/ 

/* P M E N U 


*/ 

/* 


V 

/* Print menu text on screen. 


*/ 

/* 


V 

/************************************************* 

*/ 


/* 

*/ 

pmenu( id, text , line, col ) 

/* print menu 

V 

struct window *id; 

/* window pointer 

V 

char *text[]; 

/* menu text 

V 

int line, col; 

/* display column 

*/ 

[int i; 

/* iteration variable 

*/ 

char *ln,- 

/* current menu line index 

*/ 

id->cury=line ; 

/* move to top of window 

*/ 

for ( i=0 ; ( ln=text [i] ) ! =0 ; i++) 

/* get a menu line 

V 

[ id- > curx=col ; 

/* skip spaces 

V 

while (*ln!='\0') wchw( id, *ln++) ; 

/* print line 

V 

id->cury++; } } 

/* next line 

*/ 


/* 

V 


/icic'klcitlt'k'k'k'k'klc'kic'kic'k'k'k'k'k'it'k'k'k'k'k'k'k/ 


/* 

/* PRPRESS 

/* 

/* Print pressure data file. 

^* *********************************************** 

/* 

# include <supglob.c> 


prpress( ) 

[int i, 

pnum; 

if (!getfile()) return(l); 
freopen( "sapmd. 1st" , "w" , stdout) ; 
for (pnum=0 ,• &prsam[pnum] <samptr;pnum+=80 ) 
ptpage(pnum) ; 

f reopen ( "prn" , "w" , stdout) ; 
for (pnum=0;&prsam[pnum] <samptr,-pnum+=80 ) 
ptpage(pnum) ; 

freopen( "con" , "w" , stdout ) ; 
return ( 0 ) ; } 


/* locate global data 
/* 

/* print data 

/* iteration variable 

/* current sample 

/* get filename 

/* re-assign output stream 

/* print data 

/* print page 

/* re-assign output stream 
/* print data 
/* print page 
/* display data 
/* no error 


/* 

/* 

/* P T P A G E 

/* 

/* Print a page of pressure data . 

/* 

y'************************************************* 

/* 

ptpage(sm) /* display page 

int sm; /* starting sample 

{static char *headr= /* window header 

{"SAMPLE PRESSURE SAMPLE 

static char *title= /* page title 

{" SAPMD PRESSURE DATA SAPMD SERIAL #"} 

static char *space={" "}; /* blanks 

int i, /* iteration variable 

j , /* iteration variable 

k; /* iteration variable 

f putc ( FF , stdout ) ; /* new page 

print f ( " %s%s%4d\n\n%s\n\n" , iptr, title, prsam[sm] . serial , headr ) ; 
for ( j=0; j<40; j++) /* 1 column 

{psam(sm); /* print 1 column 

printf ( "%s" , " "); /*••• 

psam( sm+40 ) ; /* print 2nd column 

printf ( "\n" ) ; /* new line 

sm++ ; } } /* next sample 

/* 

/************************************************* 

/* 

/* P S A M 

/* 

/* Print a sample. 

/* 

/* 

psam(sm) /* print sample poop 

int sm; /* sample number 

{if ( sprsamfsm] <samptr) /* good sample? 

printf (" %3d %5 . 2f" ,prsam[sm] . sample, 

prsam [ sm] . press ) ; } 

/* 


*/ 
*/ 
*/ 
*/ 
*/ 

V 
*/ 

V 

V 
*/ 

V 

V 
*/ 
*/ 

V 
*/ 
*/ 

V 

V 

V 

V 
*/ 
*/ 

V 
*/ 

V 
*/ 
*/ 
*/ 
*/ 
*/ 

V 
*/ 

PRESSURE " } i 

V 

f 

V 

V 

V 

V 
*/ 

V 

V 

V 
*/ 

V 

V 
*/ 
*/ 
*/ 
*/ 
*/ 

V 

V 

V 

V 

V 
*/ 

V 


k / 




/* V 


/* 

RECOVER 


V 

/* 



V 

/* 

Retrieve pressure data. 


V 

/* 



V 

/************************************************* 

*/ 



/* 

*/ 

finclude <supglob.c> 

/* locate global data 

*/ 



/* 

*/ 

#define BUFSIZE 20000 

/* Data buffer size 

V 



/* 

*/ 

recovers ) 

/* fetch data 

V 


{FILE *pf lie; 

/* pressure data file 

V 


union [int i; 

/* sample index 

V 


unsigned char b[5];} s; 

/* 

V 


unsigned char rch, 

/* SAPMD response character 

V 


rchbuf [BUFSIZE] ; 

/* Data buffer 

V 


int i, 

/* iteration variables 

*/ 


n. 

/* Buffer index 

V 


cks,- 

/* checksum 

V 


prompt ( "ENTER FILENAME: " ) ; 

/* prompt for file 

V 


i=rdln( ) ; 

/* read filename 

V 


if (i==H0ME || i==LEFT) return(l); 

/* bail out 

V 


skbl ( ) ; 

/* skip blanks to filename 

V 


if (*iptr==CR) return(l); 

/* null line? 

*/ 


for (i=0,-i<sizeof (line) ;i++) 

/* stomp EOL 

V 


if (line[i]==CR) line[i]=0; 

/* ... 

*/ 


pfile=fopen( iptr , "wb" ) ; 

/* open file. 

*/ 


if ( sacmd ( DUMPRESS ,0,0)) 

/* send dump command 

*/ 


if ( ! versg ( PRESSFILE ) ) 

/* pressure data coming? 

V 


{cks=0 ; 

/* clear checksum 

*/ 


n = 0 ; 

/* zero buffer index 

V 


while (1) 

/* read until end 

V 


[for (i=0;i<2;i++) 

/* read all data 

V 


{if ( ( rch=rdsg ( ) ) ==E0PDATA ) 

goto 11; /* done? 

V 


i f ( rch== ABORT ) 

/* error? 

*/ 


[p error ( 13 ) ; 

/* send error 

V 


fwrite( rchbuf , sizeof (rch) ,n,pfile) ; /* write data 

V 


fclose(pfile) ; 

/* close file 

V 


return ( 1 ) ; } ; 

/* bail out 

V 


if (n < BUFSIZE) 

/* room left in buffer? 

V 


{ 

/* 

V 


rchbuf [n] = rch; 

/* put byte in buffer 

V 


n++ ; 

/* increment buffer index 

V 


} 

/* 

V 


else 

/* if overrun, send error 

*/ 


{ 

/* 

V 


p error ( 14 ) ; 

/* send error 

V 


fwrite( rchbuf ^ sizeof( rch) /ii/pfile) / /* write data 

*/ 


fclose( pfile) ; 

/* close file 

*/ 


return ( 1 ) ; 

/* bail out 

V 


} 

/* 

*/ 

/* 

Next line no longer used 


*/ 

/* 

fputc ( rch, pfile) ; 

write character 

*/ 


s . b [ i ] =rch ; } ; 

/* make ascii byte 

V 


s . b [ 2 ] = ' \0 ' ; 

/* terminate string 

*/ 


cks+=bhex( &s ) ; } ; 

/* accumulate checksum 

V 

11: 


/* EOD 

*/ 


fwrite (rchbuf, sizeof (rch) ,n, pfile) 

;/* write data buffer 

V 


fclose(pfile) ; 

/* close file 

V 


for ( i=0 ; i<4 ; i++ ) 

/* read checksum 

*/ 


if ( ( s . b [i] =rdsg( ) )==AB0RT) 

/* error? 

V 


{ p_error (15); 

/* send message 

V 


return ( 1) ; } ; 

/* bail out 

*/ 


s . b [ 4 ] = ' \0 ' ; 

/* terminate string 

V 



if (cks!=bhex(&s) ) 

/* compare checksums 

*/ 

error (BADCHECK) ; 

/* send error 

V 

else 

/* no error 

*/ 

[wchs(CR) / 

/* just info. 

V 

stype( "Pressure data 

recovered" ) ; } ; /* print message 

V 

return ( 1 ) ; } ; 

/* complete 

V 

p_error( 16 ) ; 

/* strange response 

V 

return ( 1 ) / } 

/* return error */ 

Z****************************^ 




/* */ 

/* SELFTEST */ 

/* */ 

/* Exercise the SAPMD. */ 

/* V 

/******* ****************************************** */ 

/* V 

# include <supglob.c> /* locate global data */ 

# include <process.h> /* for exit */ 

/* */ 

self test ( ) /* command/interrogate SAPMD */ 

[static char *cmsgs [ ] =( "ALL TESTS COMPLETE", /* messages */ 


"EEPROM TEST COMPLETE", 

"POWER SYSTEM TEST COMPLETE", 

"A/D CONVERTOR TEST COMPLETE", 

"PRESSURE TRANSDUCER TEST COMPLETE", 

" 80C31 RAM TEST COMPLETE", 

" 80C31 ROM TEST COMPLETE"}; 

static char *emsgs[]={" - PASSED", /* completion status messages*/ 


" - FAILED" } ; 

static char *eeperr=[" EEPROM error at /* eeprom error message */ 

static char *ramerr={ " 80C31 RAM error at /* ram error message */ 

static char *wrote=[" wrote /* 'wrote' */ 

static char *read={" read /* 'read' */ 

unsigned char c, /* temporary */ 

rch, /* self test response */ 

ech; /* error character */ 

int i; /* temp */ 

menu (3,1); /* display menu */ 

while (1) /* forever ... */ 

{ prompt ( "SELECT TEST: /* prompt for input */ 

if ( (i=rdln( ) )==LEFT || i==HOME) return(l); /* get input, act. char.*/ 
if ( scan ( ) ==NUMBER ) /* check for option */ 

[c=acc; /* save option */ 

if (scan( )==EOL) /* check for number only */ 

(switch (c) /* number, process option */ 

[case 2: /* EEPROM TEST */ 

case 6: /* 80C51 RAM TEST */ 

case 7: /* 80C51 ROM TEST */ 

— c; /* adjust */ 

if (! sacmd( SELFTEST, &c, 1) ) /* issue command */ 

{ p_error ( BADSAPMD ) ; /* SAPMD broke */ 

continue;}; /* try again */ 

while (1) /* loop until test complete */ 

(switch (rdsg()) /* read response */ 

[case TESTCOMP: /* test complete */ 

if ( (rch=rdsg( ) ) !=ABORT) ; /* get number */ 
(wchs(CR); /* new line */ 

rch-='0',- /* make index */ 

stype(cmsgs [rch} ) ; /* print message */ 
if ( (ech=rdsg( ) ) != ABORT) /* get err */ 
(stype(emsgs[ech- ' 0 ' } ) ; /* error */ 
if (rch==c) break; /* done? */ 

continue,-}}; /* next */ 

p_error( BADSAPMD) ; /* strange response */ 

break; /* next */ 

case EEPERR: /* EEPROM self test error */ 

wchs(CR); /* new line */ 

stype(eeperr ) ; /* print message */ 

if (!rpbyte()) break; /* print 2 bytes */ 

goto 11; /* skip ram poop */ 

case RAMERR: /* ram self-test error */ 

wchs(CR) ; /* new line */ 

stype( ramerr ) ; /* print message */ 

/* EEPROM error entry */ 


11 : 



if ( ! rpbyte( ) ) 

break; /* print 2 bytes 

*/ 


stype( wrote) 

; /* print 'wrote' 

V 


if (!rpbyte()) 

break; /* print 2 bytes 
print 'read' 

*/ 


stype(read) ; 

/* 

*/ 


if ( ! rpbyte( ) ) 

break; /* print 2 bytes 

V 


continue; 

/* 

next 

*/ 


default : 

/* 

else 

*/ 


p_error ( BADSAPMD ) ; } /* strange response 

V 


break ; } ; 

/* 

exit loop 

V 


continue; 

/* 

next option 

*/ 


case 1: 

/* 

commands no longer avail 

V 


case 3 : 
case 4 : 

/* 

A/D CONVERTOR TEST 

V 


case 5: 

/* 

PRESSURE TRANDUCER TEST 

V 


default : 

/* 

bad option 

*/ 


error ( BADCMD ) ; 

/* 

print message 

V 


continue; } ; 

/* 

next iteration 

V 


break ; } } ; 

/* 

next iteration 

V 

if 

( token==Q) 

/* 

quit? 

V 


[scrup( 0 ,0,24,79,0); 

/* 

clear screen 

*/ 


i=inp( 0x21 ) ; 

/* 

read 8259 interrupt mask 

V 


outp ( 0x21 , i | 0x10 ) ; 

/* 

stop serial interrupts 

*/ 


exit ( 0 ) ; } ; 

/* 

stop. 

V 

if 

( token==CMD) 

/* 

command file? 

*/ 


[if ( i=excfile( ) ) error(i);} 

/* 

open command file 

*/ 

else 

/* 

not a command file? 

*/ 


if ( token !=E0L) error ( BADCMD );} } 

/* 

null line? 

V 


/* 


V 





** / 

/* 




V 

/* 

STATUS 



V 

/* 




V 

/* 

Maintain status line and dump window. 



V 

/* 




V 

/*********************************** * * ************ 


*/ 



/* 


*/ 

# include <supglob.c> 

/* 

locate global data 

*/ 



/* 


V 

status ( ) 

/* 

display status 

V 


{static char *statxt[]= 

/* 

status line text 

V 


{"EEPROM-ON" , "SELF-TEST" , "GSE" , "ACQUISITION", ' 

’COMPLETE" , "ERROR" } ; 



int i. 

/* 

iteration variable 

V 


j , 

/* 

iteration variable 

V 


k, 

/* 

iteration variable 

*/ 


adr , 

/* 

dump address 

V 


bet; 

/* 

dump byte count 

V 


unsigned char st; 

/* 

status byte 

*/ 


st=rdst( ) ; 

/* 

get status byte 

V 


m4->curx=0 ; 

/* 

position cursor 

*/ 


m4->cury=0 ; 

/* 

• . . 

V 


for ( i=0 ; i<6 ; i++ ) 

/* 

scan status bits 

V 


{sat( 0x0 f ) ; 

/* 

set obg 

V 


if ( (st<<i)&0x20) sat( Oxf 8 ) ; 

/* 

check for set bit 

V 


wtype ( m4 , statxt [i]); 

/* 

display status 

V 


m4->curx+=4 ; } ; 

/* 

next column 

V 


m4->curx+=6 ; 

/* 

■ • . 

V 


stct=(stct+l) &0x7fff ; 

/* 

increment message count 

V 


cursor (m4); 

/* 

position cursor 

*/ 


sat( 0x0 f ) 

/* 

obg 

V 


printf ( " %5d" , stet ) ; 

/* 

display count 

V 


sat( 7 ) ; 

/* 

normal video 

*/ 


if (st&0x40) 

/* 

check for status or dump 

V 


{adr=rdst( ) ; 

/* 

get address 

V 


bct=rdst( ) ; 

/* 

. . . and byte count 

*/ 


i f ( act ivw==m5 ) 

/* 

monitor window active? 

V 


{m5->cury=0 ; 

/* 

position cursor 

V 


for (i=bct/i>0;i-=16 ) 

/* 

count bytes displayed 

*/ 


[wchw(m5,CR) ; 

/* 

new line 

V 


hexw(m5,adr) ; 

/* 

display address 

V 


wchw(m5, ' : ' ) ; 

/* 

separate address 

V 


wchw( ' ' ) ; 

/* 


V 


adr+=16 / 

/* 

next address 

V 


k=0; 

/* 

printed byte counter 

V 


for ( j=i>16?16 : i; j>0 ; j — ) 

/* 

count bytes on line 

V 


{wchw(m5 , k++==8? ' - ' : 1 '); 

/* 


V 


hex ( m5 , rdst ());}}} 

/* 

read and print byte 

V 


else 

/* 

no monitor window 

*/ 


for (i=0 ,-i<bct;i++) rdst()/}} 

/* 

discard data 

V 



/* 


*/ 





/* */ 
/* GLOBAL DECLARATIONS 

^*********************************************^ 

# include <stdio.h> 

#include <process.h> 
finclude <stdlib.h> 





*/ 




*/ 

* * 



V 

/* 



*/ 

/* 

get 

file poop 

V 

/* 

get 

exit 

V 

/* 

get 

toupper 

V 


#if M_I86SM 

# pragma message ( 
#endif 
#if M_I86MM 

#pragma message ( 
#endif 
#if M_I86CM 

#pragma message( 
#endif 
# if M_I86LM 

#pragma message ( 
#endif 
#if M_I86HM 

#pragma message ( 
#endif 


"Small Model" ) 
"Medium Model" ) 
"Compact Model" ) 
"Large Model" ) 
"Huge Model" ) 


#define 

BACKSPACE 8 

/* 

ascii code 

: backspace 

*/ 

#define 

CR Oxd 

/* 

ascii code 

: carriage ret. 

*/ 

#define 

LF Oxa 

/* 

ascii code 

: line feed 

*/ 

ffdefine 

FF ' L ' -0x40 

/* 

ascii code 

: form feed 

V 

#define 

TAB 9 

/* 

ascii code 

: tab 

*/ 

#define 

CTRLC 3 

/* 

ascii code 

: control-C 

V 

ftdefine 

CTRLA 1 

/* 

ascii code 

: control-A 

V 

#define 

CTRLR 0x12 

/* 

ascii code 

: control-R 

V 

#define 

ESC Oxlb 

/* 

ascii code 

: escape 

*/ 

({define 

CEOF Oxla 

/* 

ascii code 

: eof 

V 

({define 

SPL 0 

/* 

IBM code: 

keypad char . seq 

[*/ 

({define 

DULC 0xc9 

/* 

IBM code: 

doub . UL corner 

V 

({define 

DURC Oxbb 

/* 

IBM code: 

doub. UR corner 

V 

({define 

DUMD Oxcb 

/* 

IBM code: 

doub. UP middle 

V 

({define 

DLMD Oxca 

/* 

IBM code: 

doub . LO middle 

V 

{{define 

DLLC 0xc8 

/* 

IBM code: 

doub . LL corner 

V 

({define 

DLRC Oxbc 

/* 

IBM code: 

doub . LR corner 

V 

({define 

DLN Oxcd 

/* 

IBM code: 

doub. line 

*/ 

({define 

DVB Oxba 

/* 

IBM code: 

doub. vert, line 

-V 

#define 

SLN 0xc4 

/* 

IBM code: 

single line 

V 

{{define 

SVB 0xb3 

/* 

IBM code: 

sngl. vert, line*/ 

{{define 

DRSLN 0xc7 

/* 

IBM code: 

left doub. sngl. 

V 

#define 

SUVB 0xc2 

/* 

IBM code: 

sngl . DN middle 

*/ 

#define 

DLSLN 0xb6 

/* 

IBM code: 

rght. doub. sngl 

.*/ 

#define 

DLDLN Oxcc 

/* 

IBM code: 

doub. left 

V 

#define 

SLVB Oxcf 

/* 

IBM code: 

sngl . UP middle 

*/ 

#define 

DRDLN 0xb9 

/* 

IBM code: 

doub. right 

V 

#define 

DMSLN 0xd7 

/* 

IBM code: 

middle 

V 



/* 



*/ 

({define 

NUL 0 

/* 

token : nothing 

V 

#define 

UP 1 

/* 

token : up 

arrow 

V 

({define 

DOWN 2 

/* 

token : down arrow 

V 

#define 

LEFT 3 

/* 

token: left arrow 

V 

#define 

RIGHT 4 

/* 

token : right arrow 

V 

#def ine 

PGDN 5 

/* 

token: page down 

V 

({define 

PGUP 6 

/* 

token : page up 

V 

#define 

INS 7 

/* 

token: insert 

V 

#define 

DEL 8 

/* 

token : del 

V 

({define 

NUMBER 9 

/* 

token : number 

V 

({define 

EOL 10 

/* 

token: carriage return 

*/ 



"jfdefine 

CTA 11 

/* 

token: control-A 

*/ 

jfdefine 

CTC 12 

/* 

token: control-C 

*/ 

#define 

CTR 13 

/* 

token: control-R 

V 

jfdefine 

COMMA 14 

/* 

token : comma 

V 

#define 

SG 15 

/* 

token: set-gmt 

V 

jfdefine 

SM 16 

/* 

token: set -met 

V 

jfdefine 

TM 17 

/* 

token : time 

*/ 

jfdefine 

ES 18 

/* 

token: enter SFR 

*/ 

#define 

COLON 19 

/* 

token : colon 

V 

#define 

DR 20 

/* 

token : dump ram 

V 

#define 

DE 21 

/* 

token : dump code 

V 

jfdefine 

ER 22 

/* 

token : enter ram 

V 

ffdefine 

EE 23 

/* 

token: enter external mem 

V 

jfdefine 

EQU 26 

/* 

token: equal sign 

V 

#define 

Q 42 

/* 

token: quit 

*/ 

jfdefine 

P 43 

/* 

token : program 

V 

jfdefine 

HOME 44 

/* 

token : home 

V 

jfdefine 

ND 45 

/* 

token : end 

V 

jfdefine 

MON 46 

/* 

token : monitor 

V 

jfdefine 

DS 47 

/* 

token : dump SFR 

*/ 

jfdefine 

SLASH 48 

/* 

token : ' / ' 

V 

jfdefine 

LW 49 

/* 

token: load windows 

V 

jfdefine 

IB 50 

/* 

token: input from port 

V 

jfdefine 

OB 51 

/* 

token: output to port 

V 

jfdefine 

E 53 

/* 

token: enter current type 

V 

jfdefine 

CMD 54 

/* 

token: at sign 

V 

jfdefine 

LA 55 

/* 

token: rubber launch 

V 



/* 


V 

jfdefine 

SETGMT ' P ' 

/* 

SAPMD command : set-gmt 

*/ 

jfdefine 

SETMET ’ Q ' 

/* 

SAPMD command : set-met 

V 

jfdefine 

DUMPRAM 'I' 

/* 

SAPMD command: dump ram 

V 

jfdefine 

DUMPS FR 'M' 

/* 

SAPMD command: dump SFR 

V 

jfdefine 

DUMPEXT ' J ’ 

/* 

SAPMD command: dump code 

*/ 

jfdefine 

LOADRAM 'G ' 

/* 

SAPMD command: load ram 

*/ 

jfdefine 

LOADS FR 'L' 

/* 

SAPMD command: load SFR 

V 

jfdefine 

LOADEE 'H 1 

/* 

SAPMD command: load EEPROM*/ 

jfdefine 

SELFTEST ’ K ’ 

/* 

SAPMD command: self-test 

V 

jfdefine 

DUMPRESS 'N' 

/* 

SAPMD command: dump press 

■ V 

jfdefine 

ILNK ’ Z ' 

/* 

SAPMD command : abort 

V 



/* 


V 

jfdefine 

RAMDATA ' G ’ 

/* 

SAPMD response: ram data 

V 

# define 

EXTDATA 'J' 

/* 

SAPMD response: code data 

*/ 

jfdefine 

TESTCOMP 'K' 

/* 

SAPMD response: test comp 

V 

jfdefine 

SFRDATA 'M' 

/* 

SAPMD response: SFR data 

V 

jfdefine 

PRESSFILE 'N' 

/* 

SAPMD response: press, dta*/ 

jfdefine 

EOPDATA ’ P ' 

/* 

SAPMD response : EOD 

V 

jfdefine 

EEPERR 'U' 

/* 

SAPMD response: EEPROM err*/ 

jfdefine 

RAMERR 'V' 

/* 

SAPMD response: ram error 

*/ 

jfdefine 

ABORT 'X' 

/* 

SAPMD response: error 

V 

jfdefine 

ACK 'W' 

/* 

SAPMD response: complete 

*/ 



/* 


*/ 

jfdefine 

GOTIT 0 

/* 

message: data recovered 

*/ 

jfdefine 

BADSAPMD 1 

/* 

error code : SAPMD error 

*/ 

ffdefine 

BADCHECK 2 

/* 

error code: checksum error*/ 

ffdefine 

BADCMD 3 

/* 

error code : bad command 

V 

jfdefine 

BADFILE 4 

/* 

error code: bad hex file 

*/ 

jfdefine 

BADCHAR 5 

/* 

error code : bad character 

*/ 

ffdefine 

NOFILE 8 

/* 

error code: file not found*/ 

jfdefine 

EOFERR 9 

/* 

error code : early EOF 

V 

jfdefine 

NONAME 10 

/* 

error code: no filename 

*/ 

jfdefine 

BADCAL 11 

/* 

error code: bad cal. file 

*/ 

jfdefine 

NOLAFILE 12 

/* 

error code: no la.cmd 

V 



/* 


*/ 

jfdefine 

GMTADR 0x14 

/* 

80C51 address: GMT & MET 

V 



/* 


V 

jfdefine 

BL 0 

/* 

window type: blank 

V 



#define DBT 1 

/* window type: dumped bytes 

V 

#define DWD 2 

/* window type: dumped words 

*/ 

#define DA 3 

/* window type: disassembly 

*/ 


/* 

*/ 

struct window [int scry; 

/* window context block 

*/ 

int curx; 

/* cursor position 

*/ 

int cury; 

/* 

V 

int lines; 

/* number of lines in window 

V 

int daseg; 

/* address of displayed data 

V 

int daoff; 

/* ... offset 

*/ 

int topoff; 

/* addr. of top instr. (DA) 

V 

char wnum; 

/* window number 

V 

char disp; 

/* displayed flag 

*/ 

char type; 

/* window contents flag 

V 

char ovr; 

/* segment override flag 

*/ 

char used;}; 

/* in-use flag 

V 


/* 

V 

struct sam [int sample; 

/* sample number 

V 

int serial; 

/* SAPMD serial # 

*/ 

float press; 



} huge prsam[4100] , 

/* pre-processed samples 

V 

huge *samptr; 

/* last processed sample 

*/ 

struct cal [int serial; 

/* SAPMD serial # 

V 

int offset; 

/* SAPMD transducer adjust. 

V 

float coef;} sapmd[100J; 

/* SAPMD calibration coefs. 

V 


/* 

*/ 

struct window screen 

/* underlying screen 

V 

tfifdef MAIN 

/* fool worthless compiler 

V 

={0,0,23,24,0,0,0,0,1,0, 

-1,1} /* initialize screen 

V 

#endif 

/* compiler fooled 

V 

, box [ 8 ] 

/* dump windows 

V 

#ifdef MAIN 

/* fool compiler 

V 

= [0,0, 0,0, 0,0,0, 'O' ,0,0, 

-1,0, /* initialize seg ovr flag 

*/ 

0,0, 0,0, 0,0,0, '1' ,0,0, 

-1/0, /* 

V 

0,0, 0,0, 0,0,0, ' 2 ' ,0,0, 

-1/0, /* 

V 

0,0, 0,0, 0,0,0, ' 3 ' ,0,0, 

-1/0, /* 

V 

0,0, 0,0, 0,0,0, '4 ' ,0,0, 

-1/0, /* 

V 

0,0, 0,0, 0,0,0, '5' ,0,0, 

-1/0, /* 

V 

0,0, 0,0, 0,0,0, ' 6 ' ,0,0, 

-1/0, /* 

V 

0,0, 0,0, 0,0,0, '7' ,0,0, 

-1,0} /* 

*/ 

#endif 

/* compiler fooled 

V 

/ 

/* 

*/ 


/* 

V 

struct window *scline[26] 

/* line directory 

V 

#ifdef MAIN 

/* fool worthless compiler 

V 

={0,0, 0,0,0, 

/* window-on- line flags 

*/ 

0,0, 0,0,0, 

/* 

*/ 

0,0, 0,0,0, 

/* 

*/ 

0,0, 0,0,0, 

/* 

V 

0,0, 0,0, 0,0} 

/* all null 

*/ 

#endif 

/* compiler fooled 

*/ 

, *activw 

/* currently active window 

V 

#ifdef MAIN 

/* fool worthless compiler 

V 

=0 

/* start with screen 

V 

#endif 

/* 

V 

r 

/* 

*/ 


/* 

V 

char ch. 

/* character temp 

V 

line [128} ; 

/* keyboard command line 

V 

char *iptr 

/* command input index 

V 

#ifdef MAIN 

/* fool worthless compiler 

V 

=line 

/* initial index 

*/ 

tfendif 

/* compiler fooled 

*/ 

f 

/* 

V 

int token 

/* token id of lexical unit 

V 

, acc ; 

/* accumulated number 

V 



/* V 

int opO, /* disassembly opcode byte 0 */ 

c, /* characters in byte */ 

cflag, /* byte changed flag */ 

echo /* echo kb input flag */ 

#ifdef MAIN /* fool compiler */ 

-1 /* default to echo */ 

#endif /* compiler fooled */ 

/* V 

int stct /* status transmission count */ 

#ifdef MAIN /* fool compiler */ 

=0 /* clear */ 

#endif /* compiler fooled */ 

/* */ 

int cmdfile /* command file flag */ 

ffifdef MAIN /* fool compiler */ 

=0 /* . . . */ 

jfendif /* */ 

; /* V 

/* */ 

struct window *ml , *m2 , *m3 , *m4 , *m5, *m6 ; /* menu windows */ 

/* */ 

/* command file */ 

/* */ 

/* func: create dump window */ 

/* V 




FILE *cfile; 

extern struct window *createw( ) ; 


' ^k k k kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkky' 

/* */ 

/* WINDOW */ 

/* */ 

/* The routines in this collection implement the dump windows. They */ 

/* do the right thing at the right time when it is time to draw a box on the */ 
/* screen and keep track of it for the purpose of displaying memory contents */ 
/* of the target computer. 

/* 

y/k kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

/* 

#include <supglob.c> /* locate global data 

/* 

^k kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
/* 

/* CREATEW 

/* 

/* Create a dump window on the screen so it can be dumped all over. 


V 

V 

V 

V 

V 
*/ 
*/ 

V 

V 

V 

V 


/* 



V 

/kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

V 



/* 

V 

struct window *createw( id, linect ) 

/* create a window 

*/ 


int id. 

/* window id 

*/ 


linect; 

/* size of window 

*/ 


[if (! box [id] .used) 

/* free slot? 

*/ 


[box [id] . used=l; 

/* claim slot 

V 


box [id] . lines=linect ; 

/* set # lines in box 

V 


box [id] . curx=l; 

/* set cursor position 

V 


box [id] . cury=l; 

/* 

V 


box [id] . disp=0; 

/* not displayed 

*/ 


box [id] . type=BL; 

/* window blank 

V 


return ( &box [id] ) ; } ; 

/* return window id 

V 


return ( 0 ) ; } 

/* can ' t create window 

*/ 



/* 

V 

/kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

V 

/* 



V 

/* 

SHOW 


V 

/* 



V 

/* 

Attempt to place the specified window on the screen. Return success 

V 

/* 

or failure indicator. 


V 

/* 



*/ 

/************************************************* 

*/ 



/* 

V 

show( id) 

/* present window 

V 


struct window *id; 

/* window id 

V 


[int i, 

/* iteration variable 

*/ 


j ; 

/* iteration variable 

V 


if (id->disp) return (1); 

/* window already displayed 

*/ 


for ( i=0 ;i<=24 ,-i+t ) 

/* check all lines on screen 

*/ 


if ( ! scline [i] ) 

/* check line for window 

*/ 


[if ( 25-i<id-> lines) break; 

/* enough lines left? 

V 


for ( j=i; j < i+ id- > lines; j++) 

scline [ j]=id; /* mark line In use 

*/ 


id->scry=i; 

/* mark screen row 

V 


screen . scry= j ; 

/* top free screen line 

V 


screen . lines-=id->lines ; 

/* reduce lines on screen 

V 


screen . cury-=id-> lines ; 

/* adjust cursor within 

V 


erase ( id ) ; 

/* blank window 

V 


frame ( id ) ; 

/* draw its frame 

V 


id->disp=l ; 

/* mark window displayed 

V 


return ( 1 ) ; } ; 

/* return window id 

V 


return ( 0 ) ; } 

/* can ' t create window 

V 



/* 

V 

/* 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

V 


/* 

/* 


*/ 

V 


R e m o v w 



/* ' Delete the specified dump window and erase it from the screen. */ 

/* Squish any windows that may be under it and update the # lines remaining */ 
/* on the screen. */ 

/* */ 

y''************************************************* * / 

/* */ 

removw(id) /* delete window and erase */ 

struct window *id; /* window id */ 

(int i, /* iteration variable */ 

j , /* iteration variable */ 

wbot ; /* first line past window */ 

if (lid) return(l); /* is this a window? */ 

if (!id->used) return(O); /* does window exist? */ 

if (!id->disp) return(l); /* is it displayed? */ 

wbot=id->scry+id-> lines,- /* first line past window */ 

for ( i=wbot ; scline [i] ;i+=scline[i]->lines) /* last window line */ 

(scline[i]->scry-=id->lines; /* adjust screen row for move*/ 

for ( j=scline [i] ->scry ; /* update line flag table */ 

j <scline [i] ->scry+scline [i] ->lines; j++) /* for new window */ 

scline[ j] =scline[i] ; } ; /* moved window */ 

scrup(id->scry, 0 , i-1, 79, id-> lines ) ; /* shift windows */ 

for ( j=id->lines ; j >0 ; j — ) scline [i-j ] =0 ; /* flag scrolled lines free */ 

screen . scry-=id-> lines ; /* adjust top of screen */ 

screen. cury+=id-> lines; /* adjust cursor within */ 

screen. lines+=id-> lines; /* adjust lines on screen */ 

id->disp=0; /* flag not displayed */ 

if (id==activw) actv(scline[0] ) ; /* new activw window */ 

return(l);} /* free box */ 

/* */ 


/* */ 

/* W C H W */ 

/* */ 

/* Write the passed character on the specified window at the current */ 

/* cursor position and bump the cursor. */ 

/* */ 

/* */ 

wchw(id,ch) /* write ch on window [id] */ 

struct window *id; /* window id */ 

char ch; /* character */ 

[if (!id->used) return(O); /* no such window */ 

if (ch==CR) /* check for new line */ 

[id- >curx=l; /* cursor to start of line */ 

if ( id->cury==id->lines-2 ) /* check for bottom */ 

uscroll(id); /* scroll window */ 

else /* not at bottom line */ 

id->cury++ ; /* next line */ 

cursor ( id ) ; } /* move cursor */ 

else /* not cr or If */ 


[cursor(id); /* position cursor */ 

wch(ch); /* write character */ 

if ( id->curx< 80 ) id->curx++ ; } ; /* at end of line? */ 

return(l);} /* return success */ 

/* V 

^ititiciclciciciciciciciiiticlcitltk-k'k-k'k-k-k-k'k'k'k'k'k'k'k'k'kis'k'k'k'k'k'k'k'k'k'k'k'kicit * / 

/* */ 

/* W C H S */ 

/* */ 

/* Write the passed character on the screen window at the current */ 

/* cursor position and bump the cursor. */ 

/* */ 

y/**************************** ********************* */ 

/* */ 

wchs(ch) /* write ch on window [id] */ 

char ch; /* character */ 



{'if (ch==CR) /* check for new line 

{ screen. curx=0; /* cursor to start of line 

if ( screen. cury==screen . lines-1 ) /* check for bottom 

scrup (screen, scry, 0, screen, scry+screen. lines-1 , 79,1) /* scroll 
else /* not at bottom line 

screen . cury++ ; /* next line 

cursor ( sscreen) ; } /* move cursor 

else /* not cr or If 

{ cursor ( s. screen ) ; /* position cursor 

wch(ch); /* write character 

if ( screen . curx< 80 ) screen . curx++ ; /* at end of line? 

return (1);} /* return success 

/* 

/* ************************************************ 

/* 

/* CURSOR 

/* 

/* Position the cursor to the screen position of the cursor for the 

/* the specified window. 

/* 

/************************************************* 

/* 

cursor (id) /* position cursor 

struct window *id; /* window id 

{movcurs( id-> scry+id->cury , id->curx) ; } /* move cursor 

/* 

/* ************************************************ 

/* 

/* USCROLL 

/* 

/* Scroll the specified window up. Blank bottom line. 

/* 

y * ************************************************ 

/* 

uscroll(id) /* scroll window 1 line 

struct window *id; /* window id 

[scrup(id->scry+l,l,id->scry+id->lines-2,78,l);} /* scroll 

/* 

/* ************************************************ 

/* 

/* DSCROLL 

/* 

/* Scroll the specified window down. Blank top line. 

/* 

/* ************************************************ 

/* 

dscroll(id) /* scroll down 1 line 

struct window *id; /* window id 

{scrdn(id->scry+l,l,id->scry+id->lines-2,78,l) ;} /* scroll 

/* 

/* ************************************************ 

/* 

/* FRAME 

/* 

/* Draw a box around a dump window. 

/* 

/************************************************* 

/* 

frame(id) /* frame a window, 

struct window *id; /* window id 

(int i; /* iteration variable 

if (id->lines<3 ) return(O); /* room for frame? 

movcurs ( id— > scry , 0 ) ; /* move to upper left corner 

wch(DULC); /* draw upper left corner 

for ( i=l ; i< 7 9 ; i++ ) /* draw line 

wch(DLN); /* draw border 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

V 
*/ 
*/ 

V 

V 
*/ 
*/ 

V 
*/ 
*/ 
*/ 

V 
*/ 

V 

V 

V 

V 

V 

V 
*/ 

V 

V 

V 

V 

V 
*/ 
*/ 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 
*/ 
*/ 

V 
*/ 

V 

V 

V 
*/ 

V 

V 

V 

V 

V 
*/ 

V 

V 

V 

V 

V 

V 

V 
*/ 



wch(DURC); /* 

for ( i=id->scry+l ; i<id-> scry+id- >lines-l ; i++) 
{movcurs(i,0) ; /* 

wch(DVB); /* 

movcurs(i,79) ; /* 

wch(DVB);}; /* 

movcurs ( i , 0 ) ; /* 

wch(DLLC)/ /* 

for (i=l;i<79;i++) wch(DLN); /* 

wch(DLRC);} /* 

/* 


fk ************************************************ 
/* 

/* ERASE 

/* 

/* Blank the specified window. 

/* 

^/************************************************* 

/* 

erase (id) /* 

struct window *id; /* 

{ scrup ( id- > scry , 0 , id- > scry+id- > 1 ines- 1 , 7 9 , 0 ) ; } 

/* 


y'************************************************* 

/* 

/* CLEAR 

/* 

/* Blank the specified window inside border. 

/* 

y************************************************* 

/* 

clear (id) /* 

struct window *id; /* 

( scrup ( id- >scry+l , 1, id- > scry+id- > lines- 2 , 78,0) 

/* 


draw upper right corner 
/* draw sides 
move to left side 
draw left border 
move to right side 
draw right border 
move to line start 
draw lower left corner 
draw lower border 
draw lower right corner 


blank window 
window id 
/* clear window 


blank window 
window id 
; } /* clear window 


/* 

/* A C T V 

/* 

/* Change active window. 

/********************************************** 
actv( id) 

struct window *id; 

{activw=id; } 


* * * 


'k * * 

/* 

/* change active window 
/* new active window 
/* change activw window 
/* 

y/'kk'kkkkkkkkkk'kk'kk'kkkkkkkkkkk 


V 
*/ 
*/ 

V 
*/ 

V 

V 
*/ 
*/ 
*/ 
*/ 

V 

V 
*/ 

V 
*/ 
*/ 
*/ 
*/ 
*/ 

V 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 

V 
*/ 

V 

V 

V 
*/ 

V 
*/ 
*/ 
*/ 

V 
*/ 

V 
*/ 

V 
*/ 

V 

V 
*/ 
*/ 

** / 



C 0 N I 0 


,• This collection performs console I/O in "don't help me" mode (direct 

; console I/O) . These are C callable functions. 


; Local symbols: 


r i r r r r 

_TEXT 

tiff i t } f 

.8086 

PUBLIC 

SEGMENT 

ASSUME 

i i i / / f f t i f r f f 

_RDC,_WRCH,_ 

BYTE PUBLIC 
CS:_TEXT 

i i i i t f ii i fit r 
i 

TICK 

' CODE ' ; 

/ 

} 

select instruction set 
code segment 

r r i r / / 

i i i r f i i i 

f f t f i i t i t r r ft 

iiiiiiiiitiit 


/ 

/ 



_ W R C H 


/ 

r 

} 

Write a 

character to 

the screen. 

Character is passed as parameter 

r f f i r r i 

r / / r } } /' r i 

r r i r r r i r t t i t t 

/ / / / f /' r } / / t i i 


_WRCH 

PROC 

NEAR 

t 

/ 

Write to console 


PUSH 

BP 

i 

perform C procedure entry 


MOV 

BP , SP 

r 

. , , 


MOV 

DX,4 [BP] 

i 

get character 


MOV 

AH, 6 

) 

get MS-DOS function code 


INT 

21H 

f 

write character 


POP 

BP 

} 

restore . . . 


RET 


} 

> return 

_WRCH 

ENDP 


} 

end-of-_WRCH 




} 



ifirriii/rtrrririiirtrrffrrriirrrtirriirr 


• _ R D C H 

• Check for a keyboard input character. Return OFFH if no character 
; available, character otherwise. 


/ i i i i 

/ f i r i i f i 

i i i i i i / i r r i / 

r i i r i r i i i i i r i i i i 



RDC 

PROC 

NEAR 

i 

} 

Read from console 



MOV 

AH, 6 

} 

get MS-DOS function 

code 


MOV 

DL, OFFH 

t 

request input 



INT 

21H 

f 

read console 



JNZ 

RD1 

f 

character ready? 



MOV 

AL, OFFH 

i 

. . . nope, return no 

character 

RD1 : 



f 

character in AL 



XOR 

AH, AH 

i 

clear for return 



RET 


r 

> return 


_RDC 

ENDP 


r 

end-of-_RDC 





i 




f r t r ! f r t r r r r t r r i f f r i r r r f r r f f f r t r r ! r f r f t 


; _ T I C K 

; Check for an interval timeout. Timeout flag is set by interval 

; timer interrupt. 


ffftffffftltlfftffflf f f I F fJlffffffTlf f t f f 


TICK PROC 
MOV 


NEAR 

AX, SEG TIMER 


; check for timeout 
,■ point to timer flag 



MOV ES , AX 

MOV AX, ES: TIMER 

RET 

TICK ENDP 


/ • * * 

; get flag 
. > return 


/ i r i r r r r r i r i / t r i r r i r r r r / r r > r r i i i / r r i r r i r r 

/ TIMER INTERRUPT HANDLER 

i 

I !!!! i ! r ! I ! i !!! ! r i 1 i ! 1 i I I i f ! r r i i i i l i I i t ! t 


TIMPOOP SEGMENT PARA PUBLIC 
TIMER DW 0 

TIMPOOP ENDS 

TEXT ENDS 


timer interrupt handler data 
interrupt flag 
end-of-TIMPOOP 

end-of- TEXT 


END 


end-of-console I/O routines 



This collection of routines performs SAPMD I/O. 


r 

} / f i r 


TEXT 


r i t t t § f r r t t f r t t f r r i t f t f r f f f t f r t / r t t f 


/ 

. 8086 / select instruction set 

PUBLIC _C0MI0 , _WRSG , _RDS , SER INT , _RDST , _P0LST , _P0LSG , _PURGE 


SEGMENT BYTE PUBLIC 'CODE' 
ASSUME CS :_TEXT , DS : SERDATA 


code segment 


t / f f r r i f / / r i i i / / f r t r r r r r r i r r t / t r / r r t r r t / r 

_ C 0 M I 0 

/ 

Take the poop passed in parameters and perform I/O over COM: 


/ f f f f r i i r f i r r r r 

/ / / r r f r / r i r t t 

rrfrrrrri/fff 


COMIO PROC 

NEAR 

r 

r 

COM: I/O 

PUSH 

BP 

} 

perform C procedure entry protocol 

MOV 

BP , SP 

r 

point to parameters 

MOV 

AH, 6 [BP] 

r 

get command 

MOV 

DX, 03F8H+3 

/ 

point at RS232 card 

MOV 

AL, 80H 

/ 

get init command 

OUT 

DX ; AL 

/ 

initialize card 

JMP 

SHORT $+2 

/ 

delay 

DEC 

DX 

f 

point to baud rate 

DEC 

DX 

f 

• • • 

MOV 

AL, 0 

} 

get high baud rate 

OUT 

DX/AL 

r 

set high baud rate count 

DEC 

DX 

i 

back up address 

JMP 

SHORT $+2 

} 

delay 

MOV 

AL, 18 

i 

get low divisor (18=6400 baud) 

OUT 

DX/AL 

} 

set low divisor 

ADD 

DX, 3 

r 

new address 

MOV 

AL, AH 

f 

get parameter 

AND 

AL, 01FH 

r 

get character specs 

OUT 

DX/AL 

} 

set character poop 

PUSH 

AX 

} 

save 

CLI 


} 

lock 

MOV 

DX, 3F8H 

i 

point to serial port 

IN 

AL, DX 

f 

read away any garbage 

JMP 

SHORT $+2 

r 

delay 

IN 

AL, 21H 

f 

read 8259 mask register 

AND 

AL, OEFH 

} 

clear serial mask 

OUT 

21H, AL 

} 

set mask 

XOR 

AX, AX 

} 

get 0 

MOV 

ES , AX 

r 

point to vectors 

MOV 

ES : WORD PTR 

3 OH, OFFSET SERINT; initialize serial vector 

MOV 

ES : WORD PTR 

32H,SEG SERINT ; ... 

INC 

DX 

/ 

point to interrupt mask on serial 

MOV 

AL, 1 

/ 

enable receive interrupts 

OUT 

DX, AL 

i 

... 

MOV 

DX, 3FCH 

t 

modem control reg. 

MOV 

AL, OBH 

i 


OUT 

DX, AL 

r 


STI 


i 

unlock 

POP 

AX 

i 

restore 

POP 

BP 

i 

... 

RET 


i 

> return 

COMIO ENDP 


i 

end-of-_COMIO 



f 


Write a character to the SAPMD. 


r 


r t f / r f 

r f r r i t i 

r f t r r r r / t t r / r r / / / / t 

t fit t f i i i 


WRSG 

PROC 

NEAR 

t 

i 

write SAPMD 


PUSH 

BP 

f 

perform C procedure entry protocol 


MOV 

BP , SP 

/ 

point to parameters 


MOV 

DX, 03F8H+5 

/ 

get status port address 

WRS1 : 



f 

wait for txrdy 


IN 

AL,DX 

i 

read status 


TEST 

AL, 40H 

r 

check txrdy 


JZ 

WRS1 

r 

empty? 


MOV 

DX, 3FEH 

r 

get port address 

WRS2: 



r 

wait for clear-to-send 


IN 

AL, DX 

} 

read status reg 


TEST 

AL, 10H 

} 

test clear-to-send 


JZ 

WRS2 

r 

SAPMD ready? 


MOV 

AL,4 [BP] 

} 

. . . yep, get character 


MOV 

DX, 03F8H 

/ 

get port address 


OUT 

DX, AL 

r 

send character 


POP 

BP 

} 

• • • 


RET 


} 

> return 

_WRSG 

ENDP 


t 

} 

end-of-_WRSG 

r / r / f f 

/ i r i i f r 

r f i f / / / / / / / / t f / f / f 9 

i f r r f r t f t 


} 

i 



_ R D S G 


} 

i 

r 

Read 

a response character from SAPMD. 

/ r r f r r 

r i r r r r r 

r i r r r r r t r r t r r f f r f r t 

f r r f r t t t f 


_RDS 

PROC 

NEAR 

} 

r 

read SAPMD response byte 


PUSH 

DS 

f 

save 


MOV 

AX, SEG SERDATA 

r 

point to input buffers 


MOV 

DS , AX 

r 

, . , 


MOV 

BX, RBOUTP 

} 

get output pointer 

RD1 : 



} 

check buffer level 


CMP 

BX, RBINP 

r 

compare with input pointer 


JE 

RD1 

i 

any data in buffer? 


MOV 

AL, RBUF [BX] 

/ 

get character 


MOV 

AH , 0 

r 

clear upper word 


INC 

BX 

r 

move to next position 


AND 

BX, OFFH 

r 

mod 256 


MOV 

RBOUTP, BX 

} 

save 


POP 

DS 

} 

. . • 


RET 


r 

> return 

_RDS 

ENDP 


} 

r 

end-of-_RDS 

r f r / r / 

t f t / f i i 

i r i i f f / f 7 f f t f f / 1 f i / 

t t f / t i } / / 


r 

} 



_ R D S T 


t 

f 

} 

Read 

a status character 

from SAPMD. 

rirr r r 

t r f i i t t 

/ i i i f r / } f i r i r / / r f r r 

f f l f t t t f f 


_RDST 

PROC 

NEAR 

f 

r 

read SAPMD status byte 


PUSH 

DS 

r 

save 


MOV 

AX, SEG SERDATA 

t 

point to input buffers 


MOV 

DS , AX 

t 

. . . 



RDS1 : 


RDST 


MOV 

BX , DBOUTP 

/ 

get output pointer 



/ 

check buffer level 

CMP 

BX, DBINP 

/ 

compare with input pointer 

JE 

RDS1 

t 

any data in buffer? 

MOV 

AL,DBUF [BX] 

f 

get character 

MOV 

AH, 0 

/ 

clear upper word 

INC 

BX 

f 

move to next position 

AND 

BX, OFFH 

f 

mod 256 

MOV 

DBOUTP , BX 

f 

save 

POP 

DS 

f 

. . „ 

RET 


r 

> return 

ENDP 


i 

end~of-_RDST 


irririirrrriitittirtiriritirrtiitttrtiirr 

P 0 L S T 


f 

} 

Check 

for status character 

from SAPMD. 

t r r f / / / 

f i i f t t f 

t i f r r 'r r f r i i i f fti f f f t 

r f / f f / f 


POLST 

PROC 

NEAR 

f 

f 

check for SAPMD status byte 


PUSH 

DS 

f 

save 


MOV 

AX, SEG SERDATA 

f 

point to input buffers 


MOV 

DS , AX 

i 

• . • 


XOR 

AX, AX 

} 

get data avail flag 


MOV 

BX, DBOUTP 

f 

get output pointer 


CMP 

BX, DBINP 

} 

compare with input pointer 


JNE 

POLSl 

} 

any data in buffer? 

POLS 2 : 



f 

POLSG entry 


DEC 

AX 

} 

flag no data 

POLS1 : 



t 

restore and return 


POP 

DS 

f 

. * * 


RET 


t 

> return 

_POLST 

ENDP 


f 

i 

end-of-_POLST 

f r f r f / / 

r r r i r i t 

r j f r r t f i t i r r r r r ? i r r f 

t r f r f r i 


/ 

r 




POLS 

G 

f 

r 

r 

Poll a 

response character 

from SAPMD. 

r r i frit 

i r r f r r r 

i t } r r r i i ii i r i / i i i t i / 

t f t / r f f 


_POLSG 

PROC 

NEAR 

i 

t 

read SAPMD response byte 


PUSH 

DS 

! 

save 


MOV 

AX, SEG SERDATA 

r 

point to input buffers 


MOV 

DS , AX 

} 

. . . 


XOR 

AX, AX 

} 

flag data 


MOV 

BX, RBOUTP 

} 

get output pointer 


CMP 

BX, RBINP 

} 

compare with input pointer 


JNE 

POLSl 

i 

any data in buffer? 


JMP 

POLS 2 

} 

no data 

_POLSG 

ENDP 


} 

/ 

end-of-_POLSG 

r r r r r r r 

/ f / f f t f 

/ / / f r t r t r r r / r r f r t r / r 

/ / r t f f r 


f 

} 




P U R G 

E 

r 

f 

} 

Empty 

SAPMD response buffer. 


i i i i f r f 

r / r r r r r 

r r f r f f i f r r r r f r r r i i i f 

f t f f f t t 


_PURGE 

PROC 

NEAR 

f 

f 

delete responses 


PUSH 

DS 

i 

save 


MOV 

AX, SEG RBINP 

r 

point to response buffer pointers 



1 

MOV 

DS , AX 

/ 

. . . 


CLI 


f 

lock 


MOV 

RBINP , 0 

f 

clear pointers 


MOV 

RBOUTP , 0 

f 

• . • 


STI 


/ 

unlock 


POP 

DS 

r 

restore 


RET 


} 

> return 

_PURGE 

ENDP 


i 

end-of-PURGE 

} r r f / t / 

f r r t t f t f 

r / r f r / r r r r r / r f r r f / r f f r r 

/ f } 


/ 

/ 


S E R 

I N 

T 

/ 

r 

r 

Serial 

interrupt handler. 



r r i r r r i 

r r r r r f ? i 

r i i i f r f f f i t f f / / / r f r / / r t 

} } t 


SERINT: 



} 

i 

serial interrupt 


PUSH 

AX 

i 

save registers 


PUSH 

DX 

r 

• . • 


PUSH 

BX 

t 

* . . 


PUSH 

SI 

i 

. . . 


PUSH 

ES 

r 

. . , 


PUSH 

DS 

r 

... 


STI 


} 

unlock 


MOV 

AX , SEG SERDATA 

} 

point to local data 


MOV 

DS , AX 

f 

• • • 


MOV 

DX, 3F8H 

t 

point to serial buffer 


IN 

AL,DX 

r 

read character 


CMP 

DMFLG , 0 

/ 

check for SAPMD ram dump 


JNE 

SERIN4 

i 

data coming? 


TEST 

AL, 80H 

r 

check for status or response 


JNZ 

SERIN1 

t 

status 


MOV 

SI, RBINP 

} 

get buffer index 


MOV 

RBUF [SI] , AL 

r 

plant character 


INC 

SI 

} 

point to next character 


AND 

SI/OFFH 

r 

mod 256 


CMP 

SI, RBOUTP 

f 

check with output pointer 


JNE 

SERIN2 

! 

overflow? 


MOV 

SI, RBINP 

i 

restore pointer 

SERIN2 : 



} 

restore and return 


MOV 

RBINP, SI 

t 

save input pointer 

SERIN3 : 



} 

exit 


MOV 

AL, 20H 

t 

get EOI code 


OUT 

20H, AL 

} 

release 8259 


POP 

DS 

} 

restore . . . 


POP 

ES 

/ 



POP 

SI 

} 



POP 

BX 

i 



POP 

DX 

r 



POP 

AX 

r 



I RET 


f 

> resume 

SERIN1: 



} 

status or dump 


TEST 

AL, 40H 

} 

check for status or dump 


JZ 

SERIN5 

r 

status? 

SERIN6 : 



1 

count byte 


INC 

DMFLG 

r 

... nope, dump. Flag it. 

SERIN5 : 



f 

status 


MOV 

SI , DBINP 

f 

get buffer index 


MOV 

DBUF [SI] , AL 

} 

plant character 


INC 

SI 

} 

point to next character 


AND 

SI/OFFH 

f 

mod 256 


CMP 

SI , DBOUTP 

} 

check with output pointer 


JNE 

SERIN8 

r 

overflow? 


MOV 

SI , DBINP 

} 

restore pointer 


; restore and return 


SERIN8 : 




MOV 

DBINP, SI 

/ 

save input pointer 


JMP 

SERIN3 

/ 

go return 

SERIN4 : 



/ 

dump in progress 


CMP 

DMFLG, 2 

/ 

check for byte count time 


JL 

SERIN6 

f 

go count again 


JG 

SERIN7 

f 

byte count gone? 


MOV 

BCNT , AL 

f 

plant byte count 

SERIN7 : 



f 

byte count gone. 


DEC 

BCNT 

r 

count byte 


JNL 

SERIN6 

r 

more to come? 


MOV 

DMFLG , 0 

} 

last byte 


JMP 

SERIN5 

! 

save it 

_TEXT 

ENDS 


} 

} 


/ / / r r r / 

f f } } f f 

t f r r f i t r i t r i f t t t t r ( t r 

f f f f t r f 


f 

i 

i 

Local 

data 



r / / f j r r 

r r i r r i 

i / / / / r i f i f / f f i r f f f f i f 

/ f f i f i f 


SERDATA 

SEGMENT PARA PUBLIC 

i 

/ 

serial I/O data 

RBINP 

DW 

0 

/ 

response buffer input pointer 

RBOUTP 

DW 

0 

/ 

response buffer output pointer 

DBINP 

DW 

0 

/ 

dump buffer input pointer 

DBOUTP 

DW 

0 

/ 

dump buffer output pointer 

DMFLG 

DW 

0 

} 

dump progress counter 

DBUF 

DB 

256 DUP (?) 

r 

dump buffer address 

RBUF 

DB 

256 DUP (?) 

f 

response buffer address 

BCNT 

DB 

0 

i 

dump byte count 

SERDATA 

ENDS 


/ 



END 


r 

r 

end-of-ground I/O routines 



f / i / f r r / r r r r r f / r f r t f / / / t r r r / r r f r r r / f r f / t r r f f r r r r f r r f r r f r 


f r / f f / r f r f / t f r f r r r f f 


; _ W I N D 0 W 

; These routines support the C routines in WINDOW. C. The perform 

; direct screen control using the ROM BIOS. 

f 

; Local symbols: 


f f riif 

/ / / > t t t f r / 

r r i r r f r r r i f r r r r f i f / r i r r r r 


.8086 

} 

; select instruction set 


PUBLIC 

WCH, SCRUP, SCRDN, MOVCURS, SETVPAGE, SCH, SAT 


PUBLIC 

_PSHCURS , _SETCURS , _P0PCURS 

_TEXT 

SEGMENT 

f 

BYTE PUBLIC ' CODE 1 ; code segment 


ASSUME 

CS:_TEXT 

f 


/ f r f f f f / r r r r / / / r r t r t f r r t r r r / f f / / / / r r t f r r f 


; _ W C H 

/ 

Write a character to the screen. Character is passed as parameter. 
; Character is written at current cursor position using current attributes. 


r f f i f 

r r i r r r r / 

trrirtrfiiiiifirft 

/ / r f r r f f r t 

WCH 

PROC 

NEAR 

i 

; Write to console 


PUSH 

BP 

; perform C procedure entry 


MOV 

BP , SP 

/ • • • 


MOV 

AX, SEG WINDPOOP 

; point to window data 


MOV 

ES , AX 

} • * * 


MOV 

AX, 4 [BP] 

; get character 


MOV 

BH , ES : VP AGE 

; get video page number 


MOV 

CX,1 

; get character count 


MOV 

AH, 9 

; get BIOS function code 


MOV 

BL, ES : ATTRIB 

; get current attributes 


INT 

10H 

; write character 


MOV 

AH, 3 

; get command 


INT 

10H 

; read cursor position 


CMP 

DL, 79 

; check column 


JGE 

WCH1 

i end-of-line? 


INC 

DL 

; nope, next column 


MOV 

AH, 2 

; get command 


INT 

10H 

; set cursor position 

WCH1 : 



,• don ' t move cursor 


POP 

BP 

; restore . . . 


RET 


; > return 

_WCH 

ENDP 


,- end-of-_WCH 
/ 

i r r f i 

t i f r f i r f 

/ r r f i t / r / r i r i f t f f f 

i i i i i i i i t t 

i 

i 



_MOVCURS 

r 

i 

} 

Move 

the cursor to the 

specified screen position. 

t f i i f 

/ f / f f r r r 

rirrrrrrfttrrititi 

/ f f / r r / fir 

MOVCURS PROC 

NEAR 

r 

; move cursor 


PUSH 

BP 

; save 


MOV 

BP , SP 

/ point to parameters 


MOV 

AX, SEG WINDPOOP 

/ get window data pointer 


MOV 

ES , AX 

} * • • 


MOV 

BH , ES : VP AGE 

get video page number 


MOV 

DH,4 [BP] 

i ... 


MOV 

DL,6 [BP] 

} ... 



MOV 

AH ,2 

; get command code 

INT 

10H 

; position cursor 

POP 

BP 

r » • • 

RET 


; > return 

_MOVCURS ENDP 


; end-of-_MOVCURS 

/ f f f i i f r t i f / / / / 

r t f f r r r r i r r r f r r r 

r r / / / f i f t 

/ 

/ 


_PSHCURS 

f 

; Save the current cursor 

} 

attributes . 

i r r t t r r r f r r f f f t 

rrrrrrfrfrrrtfft 

r / / r / r / / / / 

PSHCURS PROC 

NEAR 

f 

/ save cursor 

PUSH 

BP 

; save 

MOV 

BP , SP 

point to parameters 

MOV 

AX , SEG WINDPOOP 

; get window data pointer 

MOV 

ES , AX 

/ • • • 

MOV 

BH, ES : VP AGE 

; get video page number 

MOV 

AH, 3 

; get function code 

INT 

10H 

; read cursor poop 

MOV 

BX , ES : CURPTR 

; get stack pointer 

MOV 

ES : RCOL [BX] ,DX 

plant position . . . 

MOV 

ES : CTYPE [BX] , CX 

,■ ... and attributes 

ADD 

ES: CURPTR, 2 

; bump stack 

POP 

BP 

f - * * 

RET 


; > return 

_PSHCURS ENDP 


; end-of-_PSHCURS 

f 

i i f i r r r r f f r / / / / 

}} i i i } t }} i i t tt t i 

! f / f t / f f t r 

} 

r 


_POPCURS 

/ 

; Restore 

} 

the current cursor attributes . 

rrrr/rrrrrrirrr 

r r r r r r f r r r f r r r r / 

r t t r r f f f f f 

POPCURS PROC 

NEAR 

r 

; restore cursor 

PUSH 

BP 

; save 

MOV 

BP , SP 

; point to parameters 

PUSH 

SI 

,■ save SI 

MOV 

AX, SEG WINDPOOP 

,- get window data pointer 

MOV 

ES , AX 

/ • • • 

MOV 

S I, ES: CURPTR 

,• get stack pointer 

TEST 

SI, SI 

,• anything on stack? 

JZ 

POP1 

/ * * • 

DEC 

SI 

,- pop stack 

DEC 

SI 

/ * * • 

MOV 

ES: CURPTR, SI 

r • * * 

MOV 

BH , ES : VP AGE 

; get video page number 

MOV 

DX , ES : RCOL [SI] 

; get postion 

MOV 

AH, 2 

; get function code 

INT 

10H 

; position cursor 

MOV 

CX,ES: CTYPE [SI] 

; get type 

MOV 

AH , 1 

; get function code 

INT 

10H 

; turn on cursor 

POP1 : 


; no saved cursor 

POP 

SI 

; ... restore 

POP 

BP 

/' * • • 

RET 


> return 

_POPCURS ENDP 


,• end-of-_POPCURS 
/ 

r r f r r r r / r r r f f r r 

i r r f r r f r r r i f r i r t 

/ / / / / ! i r r i 

i 

i 


_SETCURS 



/ 


Set the current cursor attributes 


f 


f r tiff ! 

f ( tit f f 

f f f r i i i r i / i t i f i f i i r i 

r r t i i / / 


SETCURS PROC 

NEAR 

i 

t 

set cursor 


PUSH 

BP 

t 

save 


MOV 

BP,SP 

r 

point to parameters 


MOV 

CX,4 [BP] 

r 

get attributes 


MOV 

AH, 1 

/ 

get function code 


INT 

10H 

/ 

read cursor poop 


POP 

BP 

t 

• * • 


RET 


t 

> return 

J3ETCURS ENDP 


r 

r 

end-of-_SETCURS 

f r t t f r r 

r iiit / / 

i i i i i i r } i i } r i r i i t i i r 

r r r r r t r 


f 

i 




S C R U 

P 

t 

i 

} 

Scroll 

window up. Bottom 

line is 

blanked. 

t r f r r r r 

r r t i r r r 

iiriiiiiirrrrtt it fit 

f r t r t f t 


SCRUP 

PROC 

NEAR 

t 

r 

Scroll window up 


MOV 

AH, 6 

t 

get function code 

SCRl : 



r 

_SCRDN entry 


PUSH 

BP 

f 

save 


MOV 

BP , SP 

r 

point to parameters 


push 

ax 




MOV 

ax, SEG WINDPOOP 

r 

point to window poop 


MOV 

ES, ax 

r 

. . . 


pop 

ax 




MOV 

BH, ES : ATTRIB 

i 

get attributes 


MOV 

CH,4 [BP] 

r 

get upper left row 


MOV 

CL,6 [BP] 

i 

get upper left column 


MOV 

DH, 8 [BP] 

i 

get lower right row 


MOV 

DL, 10 [BP] 

i 

get lower right column 


MOV 

AL, 12 [BP] 

i 

get # lines 


INT 

10H 

t 

scroll 


POP 

BP 

r 

restore 


RET 


t 

> return 

_SCRUP 

ENDP 


i 

t 

end-of-scroll up 

/ i f i i r r 

f f t r f f t 

/ i i i i i i r i i i t t t i f r i i i 

t i } r i t i 


r 

r 



S C R D 

N 


Scroll active window down. Top line is blanked. 


} i i i i t r } i r i r f r r r r r r r r r r f r r r r t f r f r r r f r r r r t 


_SCRDN 

PROC 

NEAR 

/ 

/ 

scroll window down 


MOV 

AH, 7 

/ 

get function code 


JMP 

SCRl 

/ 

go scroll 

_SCRDN 

ENDP 


i 

end-of-_SCRDN 




i 



i } } i f } } t r r r i r t / / r r f r f f f t t r r t t t r r / t t r r r f f t 


_SETVPAGE 
Set video page number displayed on screen. 


} i } f i ir i i / r / t r / / / f r f / r r r / / / r r t r r f r i t r f / f f 


SETVPAGE PROC NEAR 
PUSH BP 


; set video page number 
; save 



* 

MOV 

BP , SP 

f 

point to parameter 


MOV 

AX, SEG VPAGE 

f 

point at page # 


MOV 

ES, AX 

i 

. . • 


MOV 

AL,4 [BP] 

i 

get page # 


MOV 

ES : VPAGE , AL 

i 

plant page # 


MOV 

AH, 5 

i 

get BIOS function code 


INT 

10H 

i 

change page 


POP 

BP 

/ 

restore 


RET 


T 

> return 

_SETVPAGE ENDP 


i 

r 

end-of-_SETVPAGE 

r f r f r r t 

t r r r i r r f 

/ f i f r r f / / / f i r r r / / / r t i f 

i i i r 


i 

r 

} 


_ s c 

H 


r r i r f r r 

r / r t r r / t 

j f r r r f r r r r r i r i i r r r f r r r 

i r i f 


SCH 

PROC 

NEAR 

i 

i 

read character from screen 


MOV 

AX, SEG VPAGE 

i 

point at page # 


MOV 

ES , AX 

i 

. . . 


MOV 

BH , ES : VPAGE 

i 

get video page # 


MOV 

AH, 8 

/ 

get command code 


INT 

10H 

i 

read character 


XOR 

AH, AH 

r 

clear attributes 


RET 


r 

> return 

_SCH 

ENDP 


i 

i 

end-of-_SCH 

f } i r r f i 

f i f t i r t r 

f tit tit r i f i i r / i i i r r t i i 

riff 


f 

} 

i 

Set character attributes 



r t r r r r r 

r r r f t t r t 

i i i i / r i t r t t t r r r r t r / t r r 

i i i i 


SAT 

PROC 

NEAR 

i 

i 

set character attributes 


PUSH 

BP 

i 

save 


MOV 

BP , SP 

i 

point to stack 


MOV 

AX, SEG ATTRIB 

i 

point to attributes 


MOV 

ES , AX 

i 

• » . 


MOV 

AX, 4 [BP] 

1 

get attributes 


MOV 

ES: ATTRIB, AL 

r 

plant new attributes 


POP 

BP 

i 

restore 


RET 


i 

> return 

_SAT 

ENDP 


i 

r 

end-of-_SAT 

r i i i i r r 

rrrrrfff 

i t r r r i t i t i i r i i i i i r r i i i 

i r i / 


i 

r 

r 


LOCAL 

DATA 

i t r t r f r 

iiririrt 

r i t r i r r i i i r t i i r i r r frit 

r r r f 


WINDPOOP SEGMENT PARA PUBLIC 

i 

i 

window data 

ATTRIB 

DB 

07h 

i 

character attributes 

VPAGE 

DB 

0 

i 

current video page 

CURPTR 

DW 

0 

/ 

cursor stack pointer 

RCOL 

DW 

0,0,0 

r 

cursor row and column 

CTYPE 

DW 

0,0,0 

i 

cursor type 

WINDPOOP ENDS 


i 

end-of-local data 

__TEXT 

ENDS 


i 

r 

end-of-_TEXT 


END 


i 

i 

end-of-console I/O routines 



HP/SGA 


READ ME 
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January 3, 1989 


Notes on the modified "Shuttle Gauge Access" software, HPSGA: 

1 . The program is invoked by typing HPSGA<return> at the DOS 
prompt . 

2. Options 3, 4, and 5 have been removed from the self test 
menu. Option 1, "all tests" has also been removed. 

3. Display and print pressure data functions do not include 
GMT. Only the sample number and the pressure is printed. 

4. Display and print pressure data functions do not handle 
missing or incorrect sample numbers. If this happens, the 
displayed results may not be reliable. 


HPSGA Generation 

The program consists of several C and assembly modules. These 
modules have the same names as the original SGA software. 

The C modules were compiled using the Microsoft C version 5.1 
compiler. These modules are NOT GUARANTEED to compile without 
errors on earlier versions of the Microsoft compiler or any other 
compiler. It may be necessary to make minor modifications to 
compile with anything other than Microsoft C 5.1. 

The assembly modules were compiled using the Microsoft Macro 
Assembler version 5.1 assembler. These modules are NOT 
GUARANTEED to assemble without errors on earlier versions of the 
Microsoft assembler or any other assembler. It may be necessary 
to make minor modifications to assemble with anything other than 
Microsoft Macro Assembler 5.1. However, it is expected that 
earlier versions would assemble without errors. 

Two command files are supplied to aid in generating HPSGA: 

hpsga - make file for HPSGA 

hpsgalnk.lnk - link file for HPSGA 

The Microsoft MAKE ( ver 4.07 ) utility is used to start the 
generation by typing the following at the DOS prompt: 

make hpsga<return> 

This will start the MAKE utility (not supplied) . The file 
"hpsga" contains rules that MAKE uses to decide which files need 
to be recompiled. After all necessary compilation have been 
performed, the linker file "hpsgalnk.lnk" is used to link the 
modules together. This is handled automatically by the MAKE 
utility. The make file "hpsga" assumes that all of the source 
files are in a directory named "SAPMD" , and that the programming 
environment follows the conventions suggested by Microsoft. ( 
Specifically, that C include files are in the "\INCLUDE" 
directory ) . 

Note that it is not necessary to use MAKE, or the command files 



supplied. If these are not used, then each of the files will 
need to be compiled manually and the programmer needs to keep 
track of the source files needing to be recompiled or 
reassembled. 

All of the source files were edited using the Microsoft Editor. 
Any editor that produces ASCII files may be used. 
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1. Scope 

This document contains the acceptance test procedure for the flight model Stand Alone Pressure 
Monitor ( SAPMD ), P.N. 15- 1062-900, serial numbers 1 to 4, Work on this project was funded by the 
NASA Johnson Space Center under contract NAS9-17601. 
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2. Applicable Documents and Specifications 

The following documents and specifications are applicable to this procedure to the extent called out 
in the body of this procedure. In the event of a conflict between the contents of this document 
and one or more of the documents or specifications listed below this document shall take precedence. 

NASA Documents and 
Specifications 

JSC-SP-T-0023B Specifications for Environmental Acceptance Tests 

NAS9- 17601 C ntract for the Stand Alone Pressure Monitor device (SAPMD) 

Modification 4 S 


POD Documents and 
reifications 


SwRI Documents and 
Specifications 

1062-CEI-01 

DSS-7 

1062-SGA-01 

XX-AG-103 


Configuration End Item Specification for the Stand Alone Pressure 
Monitor Device 

Control of Electrostatic Discharge 

Shuttle Gauge Access Software User’s Guide 

Instrument Calibration and Instrument Repair Procedure 
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3. General Test Guidelines 


3.1. Test Documentation Practices 

Unless otherwise specified all test results are to be recorded directly on this procedure in the spaces 
provided. When required. Quality Assurance shall affix their stamp to the procedure at points 
specified in the procedure . 

32 . Test Equipment Calibration 

When measurements are made during the execution of this procedure the equipment used to make the 
measurements shall be calibrated in accordance with SwRI document XX-AG-103. A calibration 
sticker shall be visible on the test instrument showing the calibration due date. 

33. Test Safety 

The SwRI Project manager shall be responsible for the safe execution of this procedure. He shall 
take every reasonable precaution to prevent damage to the flight SAPMDs and to reduce the 
possibility of accident to test personnel. Personnel having reason to handle the SAPMDs will be 
reminded of the ESD sensitivity of the device and will be directed to review the contents of SwRI 
document DSS-7 for instructions on ESD damage prevention. 

3.4. Test Cleanliness 

The SwRI SAPMD project manager shall take reasonable precautions to protest the SAPMDs from 
becoming seriously contaminated with oils, corrosive materials, radioactive materials, toxic materials 
or any other material hazardous to test personnel or the flight articles. 

33. Test Rules 

During the execution of this procedure the following test rules shall not be violated. 

33.L Test Personnel 

The SAPMD shall be operated by the following personnel only; 

A) Benny Piepgrass 

B) Bill Gibson 

C) Gill Harmon ( NASA JSC Employee ) 

333. Test Facility Failure 

If any of the facilities used for the execution of this procedure experience a major failure during 
the SAPMD testing, the test shall be stopped and shall not be restarted until the SAPMD SwRI 
Project Manager has determined that the facility has been repaired in such a way as to present no 
danger of damage to the test articles. 
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3 S3. Injury or Illness of Test Personnel 

If any of the personnel listed In paragraph 3.5.1 become incapacitated during the execution of this 
procedure it shall be the responsibility of the SwRI Project manager to determine whether the test 
can continue. If the SwRI Project Manager is unable to take part in the test Mr. Don Shirley, 
Manager of Spacecraft Computer Development, shall make the determination. 

3.5.4. Conconformance 

In the event of a test failure the nonconformance shall be dispositioned according to the provisions 
of the contract ( NAS9-17601), DRL T-2049. 
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4. Initial Electrical Performance Test 

This section describes a procedure for verifying the electrical performance of SAPMDs. 

4.1. Initial Performance Test Configuration 

The initial electrical test configuration shall be as shown in figure 4.1-1. 

4.2. Initial Performance Test Measurement Tolerance 

For the initial electrical performance test the following tolerances shall be used. 

A) Time + - 2 Second 

B) Pressure + - 0.1 PISA 

43. Initial Performance Test Measurement Equipment 

Document below the measurement equipment used for the initial performance test. 

ITEM MODEL MAN! JFACTT JRF.R S/N CAL DUE 

A) 

B) 

D) 

E) 

F) 
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FIGURE 4.1 INITIAL ELECTRICAL TEST CONFIGURATION 
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4.4. Initial Aliveness Tests 
QA. Stamp 

A) Turn on the SAPMD GSE, load the SGA software. 

B) Attach the GSE cable to SAPMD, SN 01. 

C) Verify that the tick counter in the upper right corner of the GSE begins to increment 

after attachment of the SAPMD. 

D) Following the instructions in section 5.2 of the SGA Software User’s Guide, initialize 

the GMT counter in the SAPMD. 

E) Following the instructions is section 5.3 of the SGA Software User’s User’s Guide, 

read back the contents of the SAPMD’s GMT value and verify that the reading is 

within 1 second of the time initialized. 

F) Following the instructions in section 6.0 of the SGA User’s Guide, execute the "All 

Self Test" command and verify that the message "Passed" appears on the GSE display. 

G) Disconnect the GSE cable from SAPMD S/N 1, store the SAPMD in its conductive 

container. 

H) Connect SAPMD S/N 2 to the GSE. 

I) Repeat steps A to F for S/N 2. If the SAPMD does not pass all steps record below 

the step on which the unit failed. 

Failed Step = 

J) Disconnect the GSE cable from S/N 2 and store the unit safely in its conductive bag. 

K) Connect SAPMD S/N 3 to the GSE. 

L) Repeat steps A to F for S/N 3. If the SAPMD does not pass all steps record below 

the step on which the unit failed. 

Failed Step = 

M) Disconnect the GSE from S/N 3 and store the unit in its conductive bag. 

N) Connect SAPMD S/N 4 to the GSE. 

O) Repeat steps A to F for S/N 4. If the SAPMD fails to pass all steps record below 

the step on which the unit fails. 

Failed Step = 
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P) Disconnect S/N 4 from the GSE and store it safely in its conductive bag. 

Q) Turn off the GSE and store all cables in their proper positions in the GSE housing. 
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5. Thermal Performance Test 

The purpose of this test is to verify the ability of the SAPMDs to operate over their specified 
temperature range. 

5.1. Thermal Performance Test Configuration 

The configuration for the thermal test shall be as shown in figure 7.1-1. 

5J2. Thermal Performance Test Measurement Tolerances 
Tolerances for the thermal performance test shall be as follows; 

A) Pressure + - 0.1 PISA 

B) Time + - 2 Minutes 

C) Temperature + - 2 Deg. F 

53. Thermal Performance Test Measurement Equipment 

Document below the measurement equipment used for the temperature performance test. 

ITEM MODEL MANUFACTURER £ZM CAL DUE 

A) 

B) 

D) 

E) 

F) 
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5.4. Thermal Performance Tests 

QA. Stamp 

A) Install SAPMD S/N 1 in the test chamber as shown in figure 7.1-1. 

B) Attach the SAPMD GSE and verify that the tick counter in the upper right of the 

GSE display is incrementing. 

C) Turn on the thermal chamber and set the temperature control for + 185 deg.F. 

D) When the chamber temperature arrives at 185 deg.F. verify that the tick counter is 

still incrementing. 

E) Following the instructions in paragraph 6.0 of the SGA Software User's Guide, perform 

an "All Self Test" on the SAPMD S/N 1. 

F) Allow the SAPMD to soak at 185 deg.F. for approximately 30 minutes. 

G) Perform a second "All Self Test" on the SAPMD following the instructions in par. 6.0 

of the SGA Software User’s Guide. 

H) Set the temperature chamber controller for -30 deg.F. 

I) When the temperature chamber reaches -30 deg.F. perform a self test on the SAPMD 

per the instructions in par.6.0 of the SGA Software User’s Guide. 

J) Allow the SAPMD S/N 1 to soak at -30 deg.F for approximately 30 minutes. 

K) Perform a second low temperature self test. 

L) Set the temperature controller for 72 deg.F. and allow the chamber to return to room 

temperature. 

M) When the chamber temperature has returned to 72 deg.F. disconnect the SAPMD from 

the GSE and store it safely in its conductive carrier. 

N) Install SAPMD S/N 2 in the temperature chamber and repeat steps B through L. 

O) When the chamber temperature reaches 72 deg.F. remove SAPMD S/N 2 from the 

chamber and store it safely away in its conductive carrier. 

P) Install SAPMD S/N 3 in the temperature chamber and repeat steps B through L. 

Q) When the chamber temperature reaches 72 deg. F. remove the SAPMD from the 

chamber and store it safely in its conductive carrier. 

R) Install SAPMD S/N 4 in the temperature chamber and repeat steps B through L. 


Page 11 of 29 



1062-ATP-01 
March 1988 


When the chamber temperature reaches 72 deg. F. remove the SAPMD from the 
chamber and store it safely in its conductive carrier. 
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6. X Axis Vibration Test 

The purpose of this test is to verify the ability of the SAPMDs to withstand the contractually 
specified X axis vibration environment. 

6.1. X Axis Vibration Test Configuration 

The vibration test configura on shall be per figure 6.1-1. The required level for the X axis test is 
2Gs over a frequency range of 0 to 20000 Hz. 

6JL X Axis Vibration Test Measurement Tolerances 

Tolerances for the vibration test shall be as follows; 

A) Pressure +- 0.1 PISA 

B) Time + - 10 Seconds 

C) Temperature + - 2 Deg. F 

D) Acceleration + - .1 Gs 

63. X Axis Vibration Test Measurement Equipment 

Document below the measurement equipment used for the vibration test. 


ITEM 


MODEL 


:al DUE 


A) 

B) 

D) 

E) 

F) 
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6.4. Vibration Test X Axis 

Q A. Stamp 

A) With SAPMD S/N 1 attached to the vibration test stand turn on the GSE, load and 

start the SGA software. 

B) Connect the GSE cable to the SAPMD. 

C) Verify that the tick counter is incrementing on the GSE display. 

D) Following the instructions is para.5.2 of the SGA Software User’s Guide set the SAPMD 

GMT time with local time, 

E) Following the instructions is par.5.3 of the SGA User’s Guide read back GMT from the 

SAPMD and verify that time is being kept properly. The SAPMD time should be 
within 1 second of local time. 

F) Following the instructions in par. 3.4 of the SGA User’s Guide run the "SetOOl.cmd" 

batch file. 

G) When the setup command has run to completion disconnect the GSE cable from the 

SAPMD. 

H) Start the X-Axis vibration and continue the vibration for 1 minute. 

I) After the 1 minute of vibration reconnect the GSE cable to the SAPMD. 

J) Verify that the tick counter is still running. 

K) If the SAPMD acquired pressure data during the vibration test, follow the instructions 

in par.4.3 of the SGA Software User’s Guide, to acquire the pressure data from the 
SAPMD and store it on a floppy disc under the title "OOIXAXIS.DTA". 

L) Following the instructions in par.5.2 of the SGA Software User’s Guide, inspect the 

SAPMD GMT clock value and verify that it is within 5 second of local time. 

M) Disconnect SAPMD S/N 1 from the test stand and install SAPMD S/N 2. 

N) Repeat steps B through L using file name "002XAXIS.DTA" for data and "SET002.cmd" 

for setup of S/N 2. 

O) Remove S/N 2 from the test stand and install S/N 3. 

P) Repeat steps B through L using file name "003XAXIS.DTA" for data and "SET003.CMD" 

for setup of S/N 3. 

Q) Remove S/N 3 from the test stand and install S/N 4. 
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R) Repeat steps B through L using file name "004XAXIS.DTA" for data and "SET004.CMD" 
for setup of S/N 4. 

S) Remove S/N 4 from the test stand. 

T) Reconfigure the test stand for y axis testing. 
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7. Y Axis Vibration Test 

The purpose of this test is to verify the ability of the SAPMD to withstand the Y axis vibration 

loads specified by the contract. 

7.1. Y Axis Test Configuration 

The Y axis test configuration shall be the same as the x axis configuration. 

12 . Y Axis Vibration Test Measurement Tolerances 

The Y axis measurement tolerances are the same as those for the x axis. The Y axis vibration level 

is 2Gs from 0 to 2000Hz. 

73. Y Axis Test Measurement Equipment 

The Y axis measurement equipment list is the same as that for the x axis. 

7.4. Y Axis Vibration Tests 

Q A. Stamp 

A) Attach SAPMD S/N 1 to the vibration test fixture. 

B) Attach the GSE connector to the SAPMD and verify that the tick counter is still 

incrementing. 

C) Following the instructions is par,5.3 of the SGA User’s Guide read back GMT from the 

SAPMD and verify that time is being kept properly. The SAPMD time should be 
within 20 seconds of local time. 

D) Following the instructions in par.3.4 of the SGA Software User’s Guide, execute the 

H 001Set.cmd M batch file. 

E) After completion of the "OOlSet.cmd" batch file disconnect the SAPMD from the GSE 

cable. 

F) Start the Y axis random vibration test and continue vibrating the SAPMD for 1 minute. 

G) At the end of vibration reconnect the SAPMD and verify that the tick counter is still 

incrementing. 

H) Following the instructions in par.5.2 of the SGA Software User’s Guide, inspect the 

SAPMD GMT clock value and verify that it is within 30 seconds of local time, 

1) If the SAPMD acquired data during the vibration test, follow the instructions in par- 

43 of the SGA Software User’s Guide, to transfer the pressure data from the SAPMD 
to the GSE floppy disc with the file labeled "OOIYAXIS.DTA". 
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J) Remove SAPMD S/N 1 from the test stand and install S/N 2. 

K) Connect the GSE cable to S/N 2 and verify that the tick counter is incrementing. 

L) Repeat steps C through H using file "Set002.cmd M for setup and "002YAXIS.DTA" for 
the pressure data file for S/N 2. 

M) Remove S/N 2 from the test stand, install S/N 3. 

N) Connect the GSE cable to S/N 3 and repeat steps C through H for S/N 3 using file 

"Set003.cmd" for setup and M 003YAXIS.DTA M for pressure data. 

O) Remove S/N 2 from the test stand, install S/N 4. 

P) Connect the GSE cable to S/N 4 and repeat steps C through H for S/N 4 using file 

name "Set004.cmd" for setup and H 004YAXIS.DTA M for pressure data. 

Q) Remove S/N 4 from the test stand. 

R) Reconfigure the test stand for z axis testing. 
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8. Z Axis Vibration Test 

The purpose of this test is to verify that the SAPMD will withstand the z axis vibration loads as 
specified in the contract. 

8.L Z Axis Test Configuration 

The Z axis test configuration shall be as shown in figure 10.1-1. 

8 2 * Z Axis Measurement Tolerance 

The Z axis measurement tolerances shall be the same as those used for the x and y axes. The 
vibration level for the Z axis shall be 2Gs from 0 to 2000Hz. 
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FIGURE 8.1-1 VIBRATION TEST CONFIGURATION, Z AXIS 
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83. Z Axis Measurement Equipment 

List below the test equipment used for the z axis vibration test. 

ITEM MODEL MANUFACTURER £/N CAL DUE 

A) 

B) 

D) 

E) 

F) 

8.4. Z Axis vibration Tests 

QA. Stamp 

A) Attach SAPMD S/N 1 to the test fixture. 

B) Connect the GSE cable to the SAPMD. 

C) Verify that the tick counter is incrementing. 

D) Following the instructions in par.5.2 of the SGA Software User’s Guide, verify that 

the SAPMD ’s GMT time is within 40 seconds of local time. 

E) Following the instructions in par. 3.4 of the SGA Software User’s Guide, execute the 

"SetOOl.cmd" batch file. 

F) Disconnect the GSE cable and start the z axis vibration. 

G) After 1 minute discontinue the vibration and reconnect the GSE cable. 

H) Verify that the tick counter is still running. 

r) Following the instructions in par. 5.2 of the SGA Software User’s Guide, read the 

GMT time and verify that it is within 50 seconds of local time. 

J) Note whether the SAPMD acquired pressure data. If data was acquired transfer the 

acquired data to the GSE and store it in a floppy disc file labeled "OOIZAXIS.DTA". 

K) Disconnect the GSE cable and store S/N 1 in its conductive carrier. 

L) Install SAPMD S/N 2 on the vibration test stand and connect the GSE cable. 
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M) Repeat steps C through J on S/N 2 using file "SET002.CMD M for setup and 

"002ZAXIS.DTA M for pressure data. 

N) Disconnect the GSE cable from S/N 2, remove it from the test stand and store it in 
its conductive carrier. 

O) Install SAPMD S/N 3 on the test stand and connect the GSE cable. 

P) Repeat steps C through J on S/N 3 using file ”Set003.CMD H for setup and 

"003ZAXIS.DTA" for pressure data. 

Q) Disconnect the GSE cable and store S/N 3 in its conductive carrier. 

R) Install SAPMD S/N 4 on the test stand and connect the GSE cable,. 

S) Repeat steps C through J on S/N 4 using file "Set004.cmd" for setup and 

"OOtZAXIS.DTA” for pressure data. 

T) Disconnect the GSE cable from S/N 4, remove it from the test stand and store it in 
it conductive carrier. 

U) Turn off the GSE. 


Page 22 of 29 



1062-ATP-01 
March 1988 


9. Shock Test Procedure 

The purpose of this test is to verify that the SAPMD can withstand the shock specified in the 
contract and continue to operate correctly. 

9.L Shock Test Configuration 

The shock test configuration shall be as shown in figure 9.1-1. 

92 . Shock Test Measurement Tolerances 
Tolerances for the shock test shall be as follows; 

A) Time + - 3 milliseconds 

B) Acceleration + - 5Gs 

93. Shock Test Measurement Equipment 

Document below the measurement equipment used for the shock test. 

ITEM MODEL MANUFACTURER S/N CAL DUE 

A) 

B) 

D) _ 

E) 

F) 
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FIGURE 9.1-1 SHOCK TEST CONFIGURATION 
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Figure 9.1-1 


Test Configuration, Shock Test 
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9.4. Shock Test Specification 

The SAPMD is to be shocked to 78Gs for 11 milliseconds with a half sine waveform. 

It is assumed that the shock test is executed within 2 days of completion of the vibration tests 
described in section 10. If this is not the case all 4 of the SAPMDs must have their GMT counters 
reinitialized per the instructions in par. 5.2 of the SGA Software User’s Guide. 


9.5. Shock Tests 
Q .A. Stamp 

A) Attach SAPMD S/N 1 to the shock test fixture. 

B) Shock S/N 1 to the specified level. 

C) Turn on the GSE, load and start the SGA software. 

D) Attach the GSE to the SAPMD and verify that the tick counter is incrementing 

E) Following the instructions in par. 5.2 of the SGA Software User’s Guide, read the 

SAPMD GMT and verify that it is within 15 seconds of local time. 

F) Disconnect the GSE from S/N 1. 

G) Remove S/N 1 from the test stand and attach S/N 2. 

H) Shock S/N 2 to the specified level. 

I) Attach the GSE to S/N 2 and verify the tick counter is running. 

J) Repeat step E. 

K) Disconnect the GSE from S/N 2. 

L) Remove S/N 2 and attach S/N 3. 

M) Shock S/N 3 to the specified levels. 

N) Repeat step E. 

O) Disconnect the GSE from S/N 3. 

P) Remove S/N 3 from the test stand and attach S/N 4. 

Q) Shock S/N 4 to the specified levels. 
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R) Repeat step E. 

S) Disconnect the GSE from S/N 4. 

T) Remove S/N 4 from the test stand, 

U) Turn off the GSE and pack all GSE cables and documentation in the GSE carrying 

case. 

V) Attach the hardcopies of the shock data to the end of this procedure. 
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10. Thermal Born In Procedure 

The purpose of this test is to subject the SAPMDs to an extended period of operation at elevated 
temperature. Latent manufacturing problems, if present, should be detected with this test. 

10.1. Thermal Burn In Test Configuration 

For the thermal burn in test the SAPMDs shall be placed in a thermal chamber and their temperature 
monitored. The GSE shall not be connected to the SAPMDs until the end of the test at which time 
the units will be taken out of the temperature chamber. 

10.2. Thermal Burn In Test Measurement Tolerances 

Tolerances for the vibration test shall be as follows; 

B) Time + - 30 Minutes 

C) Temperature + - 2 Deg. F 

103. Thermal Burn In Measurement Equipment 

Document below the measurement equipment used for the burn in test. 

ITEM MODEL MANUFACTURER £/N CAL DUE 


A) 

B) 

D) 

E) 

F) 

10.4. Thermal Bum In Tests 

Q A. Stamp 

A) Turn on the SAPMD GSE and load the SGA software. 

B) Remove SAPMD S/N 1 from its protective carrier and place it on a safe working 

surface for attachment to the GSE. 

C) Attach the GSE to SAPMD S/N 1 . 
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D) Following the instructions in par. 5.2 of the SGA Software User’s Guide, set the GMT 
value in the SAPMD to local time. 

E) Following the instructions in par. 5.3 of the SGA Software User’s Guide, read back 
the GMT and verify correct time to within 1 second. 

F) Disconnect the GSE cable from the SAPMD and place S/N 1 in the temperature 
chamber. 

G) Repeat steps B through F on SAPMD S/N 2. 

H) Repeat steps B through F on SAPMD S/N 3. 

I) Repeat steps B through F on SAPMD S/N 4. 

J) Turn on the temperature chamber and set the temperature controls for 110 deg. F. 

K) Leave the SAPMDs in the temperature chamber for 48 hours. 

L) Turn off the temperature chamber and allow the interior temperature to return to 

approximately 72 deg. F. 

M) Remove SAPMD S/N 1 from the chamber and place it on a safe, ESD controlled, 
working surface for attachment to the GSE. 

N) With the GSE already on attach S/N 1 to the GSE. 

O) Following the instructions in par. 5.3 of the SGA Software User’s Guide, read the 

GMT value from the SAPMD and verify that the time seen is within 5 minutes of 
local time. 

P) Disconnect the GSE from S/N 1 and store the SAPMD in its conductive carrier. 

Q) Repeat steps M through P for SAPMD S/N 2. 

R) Repeat steps M through P for SAPMD S/N 3. 

S) Repeat steps M through P for SAPMD S/N 4. 

T) Turn off the GSE and store all cables and supplies in their appropriate places in the 

GSE enclosure. 
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11. Test Closeout 

Before completing this procedure verify that copies of all vibration and shock data plots are attached 
to the back of this procedure. Also verify that all attached plots are labeled with the appropriate 
information ( i.e. date, time, axis, SAPMD S/N ). 

A) Remove SAPMD SN 1 from its conductive carrier and place it on a clean, ESD 

controlled working surface. 

B) Carefully remove the battery pack and store it in a clean conductive carrier. 

C) Replace the SAPMD in its conductive carrier. 

D) Repeat step A with SAPMD S/N 2. 

E) Repeat step A with SAPMD S/N 3. 

F) Repeat step A with SAPMD S/N 4. 
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